package NCIP::Handler::LookupItem;
-#
-#===============================================================================
-#
-# FILE: LookupItem.pm
-#
-# DESCRIPTION:
-#
-# FILES: ---
-# BUGS: ---
-# NOTES: ---
-# AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
-# ORGANIZATION: Koha Development Team
-# VERSION: 1.0
-# CREATED: 19/09/13 10:52:44
-# REVISION: ---
-#===============================================================================
+=head1
+
+ NCIP::Handler::LookupItem
+
+=head1 SYNOPSIS
+
+ Not to be called directly, NCIP::Handler will pick the appropriate Handler
+ object, given a message type
+
+=head1 FUNCTIONS
+
+=cut
+
use Modern::Perl;
--- /dev/null
+package NCIP::Handler::LookupUser;
+
+=head1
+
+ NCIP::Handler::LookupUser
+
+=head1 SYNOPSIS
+
+ Not to be called directly, NCIP::Handler will pick the appropriate Handler
+ object, given a message type
+
+=head1 FUNCTIONS
+
+=cut
+
+
+use Modern::Perl;
+
+use NCIP::Handler;
+use NCIP::Item;
+
+our @ISA = qw(NCIP::Handler);
+
+sub handle {
+ my $self = shift;
+ my $xmldoc = shift;
+ if ($xmldoc) {
+ # Given our xml document, lets find the itemid
+ my ($user_id) =
+ $xmldoc->getElementsByTagNameNS( $self->namespace(),
+ 'UserIdentifierValue' );
+ warn $user_id->textContent();
+# my $item = NCIP::User->new( { itemid => $user_id->textContent(), ils => $self->ils} );
+# my ($itemdata,$error) = $item->itemdata();
+# if ($error){
+# handle error here
+# }
+# warn $user->itemid();
+ }
+ return $self->type;
+}
+
+1;
'Try looking up an item, with agency'
);
is( $response, 'LookupItem', 'We got lookupitem with agency' );
+
+my $lookupuser = read_file('t/sample_data/LookupUser.xml');
+
+ok( $response = $ncip->process_request($lookupuser), 'Try looking up a user' );
+is( $response, 'LookupUser', 'We got lookupuser' );
+
use strict;
use warnings;
-use Test::More tests => 3; # last test to print
+use Test::More tests => 4; # last test to print
use lib 'lib';
use_ok('NCIP::Handler');
ok(
my $handler =
NCIP::Handler->new( { namespace => $namespace, type => $type } ),
- 'Create new handler'
+ 'Create new LookupItem handler'
);
ok( my $response = $handler->handle() );
+
+$type = 'LookupUser';
+ok(
+ $handler =
+ NCIP::Handler->new( { namespace => $namespace, type => $type } ),
+ 'Create new LookupItem handler'
+ );
+ok( $response = $handler->handle() );
+