|
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 460-465
sub build_issue_data {
Link Here
|
| 460 |
$it->{'od'} = $it->{'overdue'}; |
464 |
$it->{'od'} = $it->{'overdue'}; |
| 461 |
($it->{'author'} eq '') and $it->{'author'} = ' '; |
465 |
($it->{'author'} eq '') and $it->{'author'} = ' '; |
| 462 |
$it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; |
466 |
$it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; |
|
|
467 |
$it->{'return_failed'} = $return_failed{$it->{'itemnumber'}}; |
| 463 |
|
468 |
|
| 464 |
if ( $it->{'issuedate'} gt $todaysdate or $it->{'lastreneweddate'} gt $todaysdate ) { |
469 |
if ( $it->{'issuedate'} gt $todaysdate or $it->{'lastreneweddate'} gt $todaysdate ) { |
| 465 |
(!$relatives) ? push @todaysissues, $it : push @relissues, $it; |
470 |
(!$relatives) ? push @todaysissues, $it : push @relissues, $it; |