Lines 93-100
while ( my $auto_renew = $auto_renews->next ) {
Link Here
|
93 |
my $date_due = AddRenewal( $auto_renew->borrowernumber, $auto_renew->itemnumber, $auto_renew->branchcode ); |
93 |
my $date_due = AddRenewal( $auto_renew->borrowernumber, $auto_renew->itemnumber, $auto_renew->branchcode ); |
94 |
$auto_renew->auto_renew_error(undef)->store; |
94 |
$auto_renew->auto_renew_error(undef)->store; |
95 |
} |
95 |
} |
96 |
$verbose && print "Issue id: " . $auto_renew->issue_id . " for borrower: " . $auto_renew->borrowernumber . " and item: " . $auto_renew->itemnumber; |
96 |
if ( $verbose ){ |
97 |
$verbose && $commit ? print " will be renewed.\n" : print " would be renewed.\n"; |
97 |
print "Issue id: " . $auto_renew->issue_id . " for borrower: " . $auto_renew->borrowernumber . " and item: " . $auto_renew->itemnumber; |
|
|
98 |
$commit ? print " will be renewed.\n" : print " would be renewed.\n"; |
99 |
} |
98 |
push @{ $report{ $auto_renew->borrowernumber } }, $auto_renew; |
100 |
push @{ $report{ $auto_renew->borrowernumber } }, $auto_renew; |
99 |
} elsif ( $error eq 'too_many' |
101 |
} elsif ( $error eq 'too_many' |
100 |
or $error eq 'on_reserve' |
102 |
or $error eq 'on_reserve' |
101 |
- |
|
|