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>