|
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 |
- |
|
|