Lines 145-159
if ( C4::Context->preference('BatchCheckouts') and $patron ) {
Link Here
|
145 |
# do nothing - logged in patron is allowed to do batch checkouts |
145 |
# do nothing - logged in patron is allowed to do batch checkouts |
146 |
} else { |
146 |
} else { |
147 |
# patron category not allowed to do batch checkouts, only allow first barcode |
147 |
# patron category not allowed to do batch checkouts, only allow first barcode |
|
|
148 |
my @error_barcodes; |
148 |
while ( scalar @$barcodes > 1 ) { |
149 |
while ( scalar @$barcodes > 1 ) { |
149 |
pop @$barcodes; |
150 |
my $error_barcode = pop @$barcodes; |
|
|
151 |
push @error_barcodes, $error_barcode; |
150 |
} |
152 |
} |
|
|
153 |
|
154 |
$template->param( |
155 |
"circ_error_BATCH_CHECKOUT" => \@error_barcodes, |
156 |
) if @$barcodes; |
151 |
} |
157 |
} |
152 |
} else { |
158 |
} else { |
153 |
# batch checkouts not enabled, only allow first barcode |
159 |
# batch checkouts not enabled, only allow first barcode |
|
|
160 |
my @error_barcodes; |
154 |
while ( scalar @$barcodes > 1 ) { |
161 |
while ( scalar @$barcodes > 1 ) { |
155 |
pop @$barcodes; |
162 |
my $error_barcode = pop @$barcodes; |
|
|
163 |
push @error_barcodes, $error_barcode; |
156 |
} |
164 |
} |
|
|
165 |
|
166 |
$template->param( |
167 |
"circ_error_BATCH_CHECKOUT" => \@error_barcodes, |
168 |
) if @$barcodes; |
157 |
} |
169 |
} |
158 |
|
170 |
|
159 |
if ( $patron && $op eq "cud-returnbook" && $allowselfcheckreturns ) { |
171 |
if ( $patron && $op eq "cud-returnbook" && $allowselfcheckreturns ) { |
160 |
- |
|
|