Lines 190-197
while ( my $auto_renew = $auto_renews->next ) {
Link Here
|
190 |
say sprintf "Issue id: %s for borrower: %s and item: %s %s not be renewed. (%s)", |
190 |
say sprintf "Issue id: %s for borrower: %s and item: %s %s not be renewed. (%s)", |
191 |
$auto_renew->issue_id, $auto_renew->borrowernumber, $auto_renew->itemnumber, $confirm ? 'will' : 'would', $error; |
191 |
$auto_renew->issue_id, $auto_renew->borrowernumber, $auto_renew->itemnumber, $confirm ? 'will' : 'would', $error; |
192 |
} |
192 |
} |
193 |
$updated = 1 if ($error ne $auto_renew->auto_renew_error); |
193 |
$updated = 1 if (!$auto_renew->auto_renew_error || $error ne $auto_renew->auto_renew_error); |
194 |
if ( not $auto_renew->auto_renew_error or $updated ) { |
194 |
if ( $updated ) { |
195 |
$auto_renew->auto_renew_error($error)->store if $confirm; |
195 |
$auto_renew->auto_renew_error($error)->store if $confirm; |
196 |
push @{ $report{ $auto_renew->borrowernumber } }, $auto_renew |
196 |
push @{ $report{ $auto_renew->borrowernumber } }, $auto_renew |
197 |
if $error ne 'auto_too_soon' && ( $wants_email && !$wants_digest ); # Do not notify if it's too soon |
197 |
if $error ne 'auto_too_soon' && ( $wants_email && !$wants_digest ); # Do not notify if it's too soon |
198 |
- |
|
|