Lines 171-180
if ( $op eq 'cud-placerequest' && $patron ) {
Link Here
|
171 |
foreach my $msg ( keys %failed_holds ) { |
171 |
foreach my $msg ( keys %failed_holds ) { |
172 |
push( @failed_hold_msgs, $msg ); |
172 |
push( @failed_hold_msgs, $msg ); |
173 |
} |
173 |
} |
174 |
$redirect_url->query_form( |
174 |
$redirect_url->query_form( biblionumber => [@biblionumbers], failed_holds => \@failed_hold_msgs ); |
175 |
biblionumber => [@biblionumbers], failed_holds => \@failed_hold_msgs, |
175 |
$redirect_url .= "&successful_holds=" . join( '|', @successful_biblionumbers ); |
176 |
successful_holds => \@successful_biblionumbers, |
|
|
177 |
); |
178 |
print $input->redirect($redirect_url); |
176 |
print $input->redirect($redirect_url); |
179 |
} elsif ( $borrowernumber eq '' ) { |
177 |
} elsif ( $borrowernumber eq '' ) { |
180 |
print $input->header(); |
178 |
print $input->header(); |