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