Lines 461-467
sub build_issue_data {
Link Here
|
461 |
($it->{'author'} eq '') and $it->{'author'} = ' '; |
461 |
($it->{'author'} eq '') and $it->{'author'} = ' '; |
462 |
$it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; |
462 |
$it->{'renew_failed'} = $renew_failed{$it->{'itemnumber'}}; |
463 |
|
463 |
|
464 |
if ( $it->{'issuedate'} gt $todaysdate or $it->{'lastreneweddate'} gt $todaysdate ) { |
464 |
if ( $it->{'issuedate'}."" gt $todaysdate or $it->{'lastreneweddate'} gt $todaysdate ) { |
465 |
(!$relatives) ? push @todaysissues, $it : push @relissues, $it; |
465 |
(!$relatives) ? push @todaysissues, $it : push @relissues, $it; |
466 |
} else { |
466 |
} else { |
467 |
(!$relatives) ? push @previousissues, $it : push @relprevissues, $it; |
467 |
(!$relatives) ? push @previousissues, $it : push @relprevissues, $it; |
468 |
- |
|
|