Lines 53-59
my $borrower = Koha::Patrons->find( $borrowernumber );
Link Here
|
53 |
$borrower = $borrower->unblessed if $borrower; |
53 |
$borrower = $borrower->unblessed if $borrower; |
54 |
|
54 |
|
55 |
my $biblionumbers = $input->param('biblionumbers'); |
55 |
my $biblionumbers = $input->param('biblionumbers'); |
56 |
$biblionumbers ||= $biblionumber . '/'; |
56 |
$biblionumbers ||= $biblionumber; |
57 |
|
57 |
|
58 |
my $bad_bibs = $input->param('bad_bibs'); |
58 |
my $bad_bibs = $input->param('bad_bibs'); |
59 |
my $holds_to_place_count = $input->param('holds_to_place_count') || 1; |
59 |
my $holds_to_place_count = $input->param('holds_to_place_count') || 1; |
Lines 165-173
if ( $type eq 'str8' && $borrower ) {
Link Here
|
165 |
} |
165 |
} |
166 |
|
166 |
|
167 |
if ($bad_bibs) { |
167 |
if ($bad_bibs) { |
168 |
$biblionumbers .= $bad_bibs; |
168 |
push @biblionumbers, $bad_bibs; |
169 |
} |
169 |
} |
170 |
print $input->redirect("request.pl?biblionumbers=$biblionumbers"); |
170 |
print $input->redirect("request.pl?biblionumbers=" . join('/', @biblionumbers)); |
171 |
} |
171 |
} |
172 |
elsif ( $borrowernumber eq '' ) { |
172 |
elsif ( $borrowernumber eq '' ) { |
173 |
print $input->header(); |
173 |
print $input->header(); |
174 |
- |
|
|