lib/NCIP/Handler/LookupUser.pm

   1 package NCIP::Handler::LookupUser;
   2
   3 =head1
   4
   5   NCIP::Handler::LookupUser
   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
  17 use Modern::Perl;
  18
  19 use NCIP::Handler;
  20 use NCIP::Item;
  21
  22 our @ISA = qw(NCIP::Handler);
  23
  24 sub handle {
  25     my $self   = shift;
  26     my $xmldoc = shift;
  27     if ($xmldoc) {
  28         # Given our xml document, lets find the itemid
  29         my ($user_id) =
  30           $xmldoc->getElementsByTagNameNS( $self->namespace(),
  31             'UserIdentifierValue' );
  32           warn $user_id->textContent();
  33 #        my $item = NCIP::User->new( { itemid => $user_id->textContent(), ils => $self->ils} );
  34 #        my ($itemdata,$error) = $item->itemdata();
  35 #       if ($error){
  36 # handle error here
  37 #        }
  38 #        warn $user->itemid();
  39     }
  40     return $self->type;
  41 }
  42
  43 1;