Bug 19315: Use bibnum instead of biblionumber in routing-preview.pl and add item...

To test:
 1 - Create a serial subscription attached to a record
 2 - Receive some issues
 3 - Edit the subscription
 4 - Go to serails collection
 5 - Try to print a routing list
 6 - You may or may not get the right serial
 7 - Additionally create a subscription attached to a bib with no items
 8 - Try to print a routing list for this serial
 9 - You will get 'Internal server error'
10 - Apply patch
11 - Print routing list for first serial
12 - You will always get the correct bib
13 - Print routing list for second serial
14 - You should no longer get an error

Signed-off-by: Caroline Cyr La Rose <caroline.cyr-la-rose@inlibro.com>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>

diff --git a/serials/routing-preview.pl b/serials/routing-preview.pl
index 73d89df..5685b0f 100755 (executable)
--- a/serials/routing-preview.pl
+++ b/serials/routing-preview.pl
@@ -65,10 +65,10 @@ my ($template, $loggedinuser, $cookie);
 
 if($ok){
     # get biblio information....
-    my $biblionumber = $subs->{'biblionumber'};
+    my $biblionumber = $subs->{'bibnum'};
     my ($count2,@bibitems) = GetBiblioItemByBiblioNumber($biblionumber);
-       my @itemresults = GetItemsInfo( $subs->{biblionumber} );
-       my $branch = $itemresults[0]->{'holdingbranch'};
+    my @itemresults = GetItemsInfo( $subs->{bibnum} );
+    my $branch = scalar @itemresults ? $itemresults[0]->{'holdingbranch'} : $subs->{branchcode};
     my $branchname = Koha::Libraries->find($branch)->branchname;
 
        if (C4::Context->preference('RoutingListAddReserves')){