lib/NCIP/Handler/LookupItem.pm

   1 package NCIP::Handler::LookupItem;
   2
   3 =head1
   4
   5   NCIP::Handler::LookupItem
   6
   7 =head1 SYNOPSIS
   8
   9     Not to be called directly, NCIP::Handler will pick the appropriate Handler
  10     object, given a message type
  11
  12 =head1 FUNCTIONS
  13
  14 =cut
  15
  16 use Modern::Perl;
  17
  18 use NCIP::Handler;
  19 use NCIP::Item;
  20
  21 our @ISA = qw(NCIP::Handler);
  22
  23 sub handle {
  24     my $self   = shift;
  25     my $xmldoc = shift;
  26     my $item;
  27     if ($xmldoc) {
  28
  29         # Given our xml document, lets find the itemid
  30         my ($item_id) =
  31           $xmldoc->getElementsByTagNameNS( $self->namespace(),
  32             'ItemIdentifierValue' );
  33         $item = NCIP::Item->new(
  34             { itemid => $item_id->textContent(), ils => $self->ils } );
  35         my ( $itemdata, $error ) = $item->itemdata();
  36         if ($error) {
  37
  38             # handle error here
  39         }
  40         warn $item->itemid();
  41     }
  42     my $vars;
  43     $vars->{'messagetype'} = 'LookupItemResponse';
  44     $vars->{'item'}        = $item;
  45     my $output = $self->render_output( 'response.tt', $vars );
  46     return $output;
  47 }
  48
  49 1;