Fixing the error handling to be consistent
authorChris Cormack <chrisc@catalyst.net.nz>
Tue, 8 Apr 2014 21:36:02 +0000 (09:36 +1200)
committerChris Cormack <chrisc@catalyst.net.nz>
Tue, 8 Apr 2014 21:36:02 +0000 (09:36 +1200)
lib/NCIP/Handler/RequestItem.pm

index 4fe5f3f..c12464f 100644 (file)
@@ -33,15 +33,15 @@ sub handle {
         my $itemid =
           $xpc->findnodes( 'ns:RequestItem/UniqueItemId/ItemIdentifierValue',
             $root );
-        my $biblionumber = $xpc->findnodes( 'ns://BibliographicRecordIdentifier',
+        my $biblionumber = $xpc->findnodes( '//ns:BibliographicRecordIdentifier',
                       $root );
         # request the item
-        my ( $error, $messages ) = $self->ils->request( $userid, $itemid, $biblionumber );
+        my $result = $self->ils->request( $userid, $itemid, $biblionumber );
         my $vars;
         my $output;
-        my $vars->{'barcode'} = $itemid;
+        $vars->{'barcode'} = $itemid;
         $vars->{'messagetype'} = 'RequestItemResponse';
-        if ($error) {
+        if (! $result->{'success'}) {
             $vars->{'processingerror'}        = 1;
             $vars->{'processingerrortype'}    = $messages;
             $vars->{'processingerrorelement'} = 'UniqueItemIdentifier';