<%perl>
my @months = qw(January February March April May
June July August September October November December);
my @curr = localtime;
my ($prev,$cid,$next);
if (length $chapter) {
($prev,$cid,$next) = split(':',$chapter) ;
$prev = $base . $prev;
$next = $base . $next;
}
|
|
% if ($prev) {
Previous
% }
% if ($next) {
Next
% }
Omri Schwarz,
<% $months[$curr[4]] %> <% $curr[3] %>, <% $curr[5] + 1900 %>
<% $credit %>