1 package NCIP::Handler::RequestItem;
5 NCIP::Handler::RequestItem
9 Not to be called directly, NCIP::Handler will pick the appropriate Handler
10 object, given a message type
20 our @ISA = qw(NCIP::Handler);
26 my $root = $xmldoc->documentElement();
27 my $xpc = XML::LibXML::XPathContext->new;
28 $xpc->registerNs( 'ns', $self->namespace() );
31 $xpc->findnodes( 'ns:RequestItem/UniqueUserId/UserIdentifierValue',
34 $xpc->findnodes( 'ns:RequestItem/UniqueItemId/ItemIdentifierValue',
38 my ( $error, $messages ) = $self->ils->request( $userid, $itemid );
41 my $vars->{'barcode'} = $itemid;
42 $vars->{'messagetype'} = 'RequestItemResponse';
44 $vars->{'processingerror'} = 1;
45 $vars->{'processingerrortype'} = $messages;
46 $vars->{'processingerrorelement'} = 'UniqueItemIdentifier';
47 $output = $self->render_output( 'problem.tt', $vars );
50 my $elements = $self->get_user_elements($xmldoc);
51 $vars->{'elements'} = $elements;
53 $vars->{'messages'} = $messages;
54 $output = $self->render_output( 'response.tt', $vars );