|
Lines 97-102
my @failedrenews = $query->param('failedrenew'); # expected to be itemnumbers
Link Here
|
| 97 |
our %renew_failed = {}; |
97 |
our %renew_failed = {}; |
| 98 |
for (@failedrenews) { $renew_failed{$_} = 1; } |
98 |
for (@failedrenews) { $renew_failed{$_} = 1; } |
| 99 |
|
99 |
|
|
|
100 |
my @failedreturns = $query->param('failedreturn'); |
| 101 |
our %return_failed = {}; |
| 102 |
for (@failedreturns) { $return_failed{$_} = 1; } |
| 103 |
|
| 100 |
my $findborrower = $query->param('findborrower'); |
104 |
my $findborrower = $query->param('findborrower'); |
| 101 |
$findborrower =~ s|,| |g; |
105 |
$findborrower =~ s|,| |g; |
| 102 |
my $borrowernumber = $query->param('borrowernumber'); |
106 |
my $borrowernumber = $query->param('borrowernumber'); |
|
Lines 462-467
sub build_issue_data {
Link Here
|
| 462 |
$it->{'od'} = $it->{'overdue'}; |
466 |
$it->{'od'} = $it->{'overdue'}; |
| 463 |
($it->{'author'} eq '') and $it->{'author'} = ' '; |
467 |
($it->{'author'} eq '') and $it->{'author'} = ' '; |
| 464 |
$it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; |
468 |
$it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; |
|
|
469 |
$it->{'return_failed'} = $return_failed{$it->{'itemnumber'}}; |
| 465 |
|
470 |
|
| 466 |
if ( $it->{'issuedate'} gt $todaysdate or $it->{'lastreneweddate'} gt $todaysdate ) { |
471 |
if ( $it->{'issuedate'} gt $todaysdate or $it->{'lastreneweddate'} gt $todaysdate ) { |
| 467 |
(!$relatives) ? push @todaysissues, $it : push @relissues, $it; |
472 |
(!$relatives) ? push @todaysissues, $it : push @relissues, $it; |