Beginning work on LookupUser
[working/NCIPServer.git] / 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;