Overdue Issues
Today's date is
<% $date %>
% foreach (my @issues=periodicals::issue->overdue_issues($date)) { % my $id = shift @issues; % my $result = periodicals::issue->retrieve("$id"); % }
id
Journal
Date
Expected Arrival
Issue
Volume
Supplements
Recieved
<% $result->id %>
<% $result->journal->title %>
<% $result->date %>
<% $result->arrival_date %>
<% $result->issue %>
<% $result->volume %>
<% $result->supplements %>
Recieved
<%args> $recieved => '' @time => localtime; $year => 1900+$time[5]; $month => 1+$time[4]; $day => $time[3]; $date => "$year-$month-$day"; <%init>