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 72-89
my $found;
Link Here
|
72 |
if ( $type eq 'str8' && $patron ) { |
71 |
if ( $type eq 'str8' && $patron ) { |
73 |
|
72 |
|
74 |
foreach my $biblionumber ( keys %bibinfos ) { |
73 |
foreach my $biblionumber ( keys %bibinfos ) { |
75 |
my $count = @bibitems; |
|
|
76 |
@bibitems = sort @bibitems; |
77 |
my $i2 = 1; |
78 |
my @realbi; |
79 |
$realbi[0] = $bibitems[0]; |
80 |
for ( my $i = 1 ; $i < $count ; $i++ ) { |
81 |
my $i3 = $i2 - 1; |
82 |
if ( $realbi[$i3] ne $bibitems[$i] ) { |
83 |
$realbi[$i2] = $bibitems[$i]; |
84 |
$i2++; |
85 |
} |
86 |
} |
87 |
|
74 |
|
88 |
my $can_override = C4::Context->preference('AllowHoldPolicyOverride'); |
75 |
my $can_override = C4::Context->preference('AllowHoldPolicyOverride'); |
89 |
if ( defined $checkitem && $checkitem ne '' ) { |
76 |
if ( defined $checkitem && $checkitem ne '' ) { |
90 |
- |
|
|