|
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 |
- |
|
|