if (C4::Context->preference('RoutingListAddReserves')){
# get existing reserves .....
- my ($count,$reserves) = GetReservesFromBiblionumber($biblio);
- my $totalcount = $count;
+ my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblio });
+ my $count = scalar( @$reserves );
+ my $totalcount = $count;
foreach my $res (@$reserves) {
if ($res->{'found'} eq 'W') {
$count--;
my $reserve = $sth->fetchrow_hashref;
if($routing->{borrowernumber} == $reserve->{borrowernumber}){
- ModReserve($routing->{ranking},$biblio,$routing->{borrowernumber},$branch);
+ ModReserve({
+ rank => $routing->{ranking},
+ biblionumber => $biblio,
+ borrowernumber => $routing->{borrowernumber},
+ branchcode => $branch
+ });
} else {
AddReserve($branch,$routing->{borrowernumber},$biblio,$const,\@bibitems,$routing->{ranking}, undef, undef, $notes,$title);
}
routingnotes => $routingnotes,
generalroutingnote => C4::Context->preference('RoutingListNote'),
hasRouting => check_routing($subscriptionid),
+ (uc(C4::Context->preference("marcflavour"))) => 1
);
output_html_with_http_headers $query, $cookie, $template->output;