|
Lines 52-57
my $hard_due_date = $cgi->param('hard_due_date');
Link Here
|
| 52 |
my ( $item, $checkout, $patron ); |
52 |
my ( $item, $checkout, $patron ); |
| 53 |
my $error = q{}; |
53 |
my $error = q{}; |
| 54 |
my $final_renewal = 0; |
54 |
my $final_renewal = 0; |
|
|
55 |
my $final_unseen = 0; |
| 55 |
my ( $soonest_renew_date, $latest_auto_renew_date ); |
56 |
my ( $soonest_renew_date, $latest_auto_renew_date ); |
| 56 |
|
57 |
|
| 57 |
if ( $op eq 'cud-renew' && $barcode ) { |
58 |
if ( $op eq 'cud-renew' && $barcode ) { |
|
Lines 80-85
if ( $op eq 'cud-renew' && $barcode ) {
Link Here
|
| 80 |
$error = undef; |
81 |
$error = undef; |
| 81 |
$final_renewal = 1; |
82 |
$final_renewal = 1; |
| 82 |
} |
83 |
} |
|
|
84 |
if ( $error && ( $error eq 'auto_unseen_final' ) ) { |
| 85 |
|
| 86 |
# This error implies it can be renewed - but not again after this, so no error |
| 87 |
$error = undef; |
| 88 |
$final_unseen = 1; |
| 89 |
} |
| 83 |
|
90 |
|
| 84 |
if ( $error && ( $error eq 'on_reserve' ) ) { |
91 |
if ( $error && ( $error eq 'on_reserve' ) ) { |
| 85 |
if ($override_holds) { |
92 |
if ($override_holds) { |
|
Lines 134-139
if ( $op eq 'cud-renew' && $barcode ) {
Link Here
|
| 134 |
borrower => $patron, |
141 |
borrower => $patron, |
| 135 |
error => $error, |
142 |
error => $error, |
| 136 |
final_renewal => $final_renewal, |
143 |
final_renewal => $final_renewal, |
|
|
144 |
final_unseen => $final_unseen, |
| 137 |
soonestrenewdate => $soonest_renew_date, |
145 |
soonestrenewdate => $soonest_renew_date, |
| 138 |
latestautorenewdate => $latest_auto_renew_date, |
146 |
latestautorenewdate => $latest_auto_renew_date, |
| 139 |
); |
147 |
); |