|
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(); |