Lines 63-75
my $subs = GetSubscription($subscriptionid);
Link Here
|
63 |
my ($tmp ,@serials) = GetSerials($subscriptionid); |
63 |
my ($tmp ,@serials) = GetSerials($subscriptionid); |
64 |
my ($template, $loggedinuser, $cookie); |
64 |
my ($template, $loggedinuser, $cookie); |
65 |
|
65 |
|
|
|
66 |
my $library; |
66 |
if($ok){ |
67 |
if($ok){ |
67 |
# get biblio information.... |
68 |
# get biblio information.... |
68 |
my $biblionumber = $subs->{'bibnum'}; |
69 |
my $biblionumber = $subs->{'bibnum'}; |
69 |
my ($count2,@bibitems) = GetBiblioItemByBiblioNumber($biblionumber); |
70 |
my ($count2,@bibitems) = GetBiblioItemByBiblioNumber($biblionumber); |
70 |
my @itemresults = GetItemsInfo( $biblionumber ); |
71 |
my @itemresults = GetItemsInfo( $biblionumber ); |
71 |
my $branch = @itemresults ? $itemresults[0]->{'holdingbranch'} : $subs->{branchcode}; |
72 |
my $branch = @itemresults ? $itemresults[0]->{'holdingbranch'} : $subs->{branchcode}; |
72 |
my $branchname = Koha::Libraries->find($branch)->branchname; |
73 |
$library = Koha::Libraries->find($branch); |
73 |
|
74 |
|
74 |
if (C4::Context->preference('RoutingListAddReserves')){ |
75 |
if (C4::Context->preference('RoutingListAddReserves')){ |
75 |
# get existing reserves ..... |
76 |
# get existing reserves ..... |
Lines 108-114
if($ok){
Link Here
|
108 |
flagsrequired => {serials => '*'}, |
109 |
flagsrequired => {serials => '*'}, |
109 |
debug => 1, |
110 |
debug => 1, |
110 |
}); |
111 |
}); |
111 |
$template->param("libraryname"=>$branchname); |
|
|
112 |
} else { |
112 |
} else { |
113 |
($template, $loggedinuser, $cookie) |
113 |
($template, $loggedinuser, $cookie) |
114 |
= get_template_and_user({template_name => "serials/routing-preview.tt", |
114 |
= get_template_and_user({template_name => "serials/routing-preview.tt", |
Lines 120-125
if($ok){
Link Here
|
120 |
}); |
120 |
}); |
121 |
} |
121 |
} |
122 |
|
122 |
|
|
|
123 |
$template->param( libraryname => $library->branchname ) if $library; |
124 |
|
123 |
my $memberloop = []; |
125 |
my $memberloop = []; |
124 |
for my $routing (@routinglist) { |
126 |
for my $routing (@routinglist) { |
125 |
my $member = Koha::Patrons->find( $routing->{borrowernumber} )->unblessed; |
127 |
my $member = Koha::Patrons->find( $routing->{borrowernumber} )->unblessed; |
126 |
- |
|
|