Attachment #128367 for bug #29660

View | Details | Raw Unified | Return to bug 29660
Collapse All | Expand All

Lines 538-544 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/reserve/request.tt (-1 lines)
538	[% ELSE %]	538	[% ELSE %]
539	<input type="checkbox" id="requestany" name="request" checked="checked" value="Any" />	539	<input type="checkbox" id="requestany" name="request" checked="checked" value="Any" />
540	[% END %]	540	[% END %]
541	<input type="hidden" name="biblioitem" value="[% biblioitemnumber \| html %]" />
542	<input type="hidden" name="alreadyreserved" value="[% alreadyreserved \| html %]" />	541	<input type="hidden" name="alreadyreserved" value="[% alreadyreserved \| html %]" />
543	</li>	542	</li>
544		543





checkauth($input, 0, { reserveforothers => 'place_holds' }, 'intranet');

my @bibitems       = $input->multi_param('biblioitem');
my @reqbib         = $input->multi_param('reqbib');
my $biblionumber   = $input->param('biblionumber');
my $borrowernumber = $input->param('borrowernumber');

if ( $type eq 'str8' && $borrower ) {

    foreach my $biblionumber ( keys %bibinfos ) {
        my $count = @bibitems;
        @bibitems = sort @bibitems;
        my $i2 = 1;
        my @realbi;
        $realbi[0] = $bibitems[0];
        for ( my $i = 1 ; $i < $count ; $i++ ) {
            my $i3 = $i2 - 1;
            if ( $realbi[$i3] ne $bibitems[$i] ) {
                $realbi[$i2] = $bibitems[$i];
                $i2++;
            }
        }

        my $can_override = C4::Context->preference('AllowHoldPolicyOverride');
        if ( defined $checkitem && $checkitem ne '' ) {
- 

Return to bug 29660

Lines 34-40 my $input = CGI->new(); Link Here

(-)a/reserve/placerequest.pl (-14 lines)
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	-