|
Lines 34-40
my $input = CGI->new();
Link Here
|
| 34 |
|
34 |
|
| 35 |
checkauth($input, 0, { reserveforothers => 'place_holds' }, 'intranet'); |
35 |
checkauth($input, 0, { reserveforothers => 'place_holds' }, 'intranet'); |
| 36 |
|
36 |
|
| 37 |
my @bibitems = $input->multi_param('biblioitem'); |
|
|
| 38 |
my @reqbib = $input->multi_param('reqbib'); |
37 |
my @reqbib = $input->multi_param('reqbib'); |
| 39 |
my $biblionumber = $input->param('biblionumber'); |
38 |
my $biblionumber = $input->param('biblionumber'); |
| 40 |
my $borrowernumber = $input->param('borrowernumber'); |
39 |
my $borrowernumber = $input->param('borrowernumber'); |
|
Lines 73-90
my $found;
Link Here
|
| 73 |
if ( $type eq 'str8' && $borrower ) { |
72 |
if ( $type eq 'str8' && $borrower ) { |
| 74 |
|
73 |
|
| 75 |
foreach my $biblionumber ( keys %bibinfos ) { |
74 |
foreach my $biblionumber ( keys %bibinfos ) { |
| 76 |
my $count = @bibitems; |
|
|
| 77 |
@bibitems = sort @bibitems; |
| 78 |
my $i2 = 1; |
| 79 |
my @realbi; |
| 80 |
$realbi[0] = $bibitems[0]; |
| 81 |
for ( my $i = 1 ; $i < $count ; $i++ ) { |
| 82 |
my $i3 = $i2 - 1; |
| 83 |
if ( $realbi[$i3] ne $bibitems[$i] ) { |
| 84 |
$realbi[$i2] = $bibitems[$i]; |
| 85 |
$i2++; |
| 86 |
} |
| 87 |
} |
| 88 |
|
75 |
|
| 89 |
my $can_override = C4::Context->preference('AllowHoldPolicyOverride'); |
76 |
my $can_override = C4::Context->preference('AllowHoldPolicyOverride'); |
| 90 |
if ( defined $checkitem && $checkitem ne '' ) { |
77 |
if ( defined $checkitem && $checkitem ne '' ) { |
| 91 |
- |
|
|