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