e5cd8da1a0852231bacea101bf4bf943904f80a2
[working/NCIPServer.git] / lib / NCIP / Handler / LookupItem.pm
1 package NCIP::Handler::LookupItem;
2
3 #
4 #===============================================================================
5 #
6 #         FILE: LookupItem.pm
7 #
8 #  DESCRIPTION:
9 #
10 #        FILES: ---
11 #         BUGS: ---
12 #        NOTES: ---
13 #       AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
14 # ORGANIZATION: Koha Development Team
15 #      VERSION: 1.0
16 #      CREATED: 19/09/13 10:52:44
17 #     REVISION: ---
18 #===============================================================================
19
20 use Modern::Perl;
21
22 use NCIP::Handler;
23 use NCIP::Item;
24
25 our @ISA = qw(NCIP::Handler);
26
27 sub handle {
28     my $self   = shift;
29     my $xmldoc = shift;
30     if ($xmldoc) {
31         # Given our xml document, lets find the itemid
32         my ($item_id) =
33           $xmldoc->getElementsByTagNameNS( $self->namespace(),
34             'ItemIdentifierValue' );
35         my $item = NCIP::Item->new( { itemid => $item_id->textContent(), ils => $self->ils} );
36         my ($itemdata,$error) = $item->itemdata();
37         if ($error){
38 # handle error here
39         }
40         warn $item->itemid();
41     }
42     return $self->type;
43 }
44
45 1;