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         my ($item_id) =
  32           $xmldoc->getElementsByTagNameNS( $self->namespace(), 'ItemId' );
  33         my $item = NCIP::Item->new( { itemid => $item_id } );
  34     }
  35     return $self->type;
  36 }
  37
  38 1;