Lines 144-159
elsif ( $op eq "checkout" ) {
Link Here
|
144 |
0, |
144 |
0, |
145 |
C4::Context->preference("AllowItemsOnHoldCheckoutSCO") |
145 |
C4::Context->preference("AllowItemsOnHoldCheckoutSCO") |
146 |
); |
146 |
); |
147 |
$confirm_required = scalar keys %$needconfirm; |
147 |
my $issue_error; |
|
|
148 |
if ( $confirm_required = scalar keys %$needconfirm ) { |
149 |
for my $error ( qw( UNKNOWN_BARCODE max_loans_allowed ISSUED_TO_ANOTHER NO_MORE_RENEWALS NOT_FOR_LOAN DEBT WTHDRAWN RESTRICTED RESERVED ITEMNOTSAMEBRANCH EXPIRED DEBARRED CARD_LOST GNA INVALID_DATE UNKNOWN_BARCODE TOO_MANY DEBT_GUARANTEES USERBLOCKEDOVERDUE PATRON_CANT PREVISSUE NOT_FOR_LOAN_FORCING ITEM_LOST) ) { |
150 |
if ( $needconfirm->{$error} ) { |
151 |
$issue_error = $error; |
152 |
$confirmed = 0; |
153 |
last; |
154 |
} |
155 |
} |
156 |
} |
148 |
|
157 |
|
149 |
#warn "confirm_required: " . $confirm_required ; |
158 |
#warn "confirm_required: " . $confirm_required ; |
150 |
if (scalar keys %$impossible) { |
159 |
if (scalar keys %$impossible) { |
151 |
|
160 |
|
152 |
# warn "impossible: numkeys: " . scalar (keys(%$impossible)); |
161 |
my $issue_error = (keys %$impossible)[0]; # FIXME This is wrong, we assume only one error and keys are not ordered |
153 |
#warn join " ", keys %$impossible; |
|
|
154 |
my $issue_error = (keys %$impossible)[0]; |
155 |
|
162 |
|
156 |
# FIXME we assume only one error. |
|
|
157 |
$template->param( |
163 |
$template->param( |
158 |
impossible => $issue_error, |
164 |
impossible => $issue_error, |
159 |
"circ_error_$issue_error" => 1, |
165 |
"circ_error_$issue_error" => 1, |
Lines 187-195
elsif ( $op eq "checkout" ) {
Link Here
|
187 |
} |
193 |
} |
188 |
} elsif ( $confirm_required && !$confirmed ) { |
194 |
} elsif ( $confirm_required && !$confirmed ) { |
189 |
#warn "failed confirmation"; |
195 |
#warn "failed confirmation"; |
190 |
my $issue_error = (keys %$needconfirm)[0]; |
|
|
191 |
$template->param( |
196 |
$template->param( |
192 |
impossible => (keys %$needconfirm)[0], |
197 |
impossible => 1, |
193 |
"circ_error_$issue_error" => 1, |
198 |
"circ_error_$issue_error" => 1, |
194 |
hide_main => 1, |
199 |
hide_main => 1, |
195 |
); |
200 |
); |
196 |
- |
|
|