1 package NCIP::Handler::CheckInItem;
5 NCIP::Handler::CheckInItem
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 = $self->xpc();
28 my $itemid = $xpc->findnodes( '//ns:ItemIdentifierValue', $root );
31 my $branch = undef; # where the hell do we get this from???
32 my $checkin = $self->ils->checkin( $itemid, $branch );
35 $vars->{'messagetype'} = 'CheckInItemResponse';
36 $vars->{'barcode'} = $itemid;
37 my ( $from, $to ) = $self->get_agencies($xmldoc);
38 $vars->{'fromagency'} = $to;
39 $vars->{'toagency'} = $from;
41 if ( !$checkin->{success} ) {
42 $vars->{'processingerror'} = 1;
43 $vars->{'processingerrortype'} = $checkin->{'messages'};
44 $vars->{'processingerrorelement'} = 'UniqueItemIdentifier';
45 $output = $self->render_output( 'problem.tt', $vars );
49 $vars->{'elements'} = $self->get_user_elements($xmldoc);
50 $vars->{'checkin'} = $checkin;
51 $output = $self->render_output( 'response.tt', $vars );