version 1.12, 2003/05/23 16:14:33
|
version 1.14, 2003/06/18 15:11:20
|
Line 263 ENDDOCUMENT
|
Line 263 ENDDOCUMENT
|
my ($pm,$py,$fm,$fy)=($month-1,$year,$month+1,$year); |
my ($pm,$py,$fm,$fy)=($month-1,$year,$month+1,$year); |
if ($pm<1) { ($pm,$py)=(12,$year-1); } |
if ($pm<1) { ($pm,$py)=(12,$year-1); } |
if ($fm>12){ ($fm,$fy)=(1,$year+1); } |
if ($fm>12){ ($fm,$fy)=(1,$year+1); } |
|
|
$r->print('<h1>'.('','January','February','March','April','May', |
$r->print('<h1>'.('','January','February','March','April','May', |
'June','July','August','September','October', |
'June','July','August','September','October', |
'November','December')[$month].' '.$year.'</h1>'. |
'November','December')[$month].' '.$year.'</h1>'); |
|
# Reached the end of times, give up |
|
if (($year<1970) || ($year>2037)) { |
|
$r->print('<h3>No calendar available for this date.</h3>'. |
|
'<a href="/adm/announcements?month='.$todayhash{'month'}. |
|
'&year='.$todayhash{'year'}.'">Current Month</a></body></html>'); |
|
return OK; |
|
} |
|
$r->print( |
'<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '. |
'<a href="/adm/announcements?month='.$pm.'&year='.$py.'">Previous Month</a> '. |
'<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a>'. |
'<a href="/adm/announcements?month='.$fm.'&year='.$fy.'">Next Month</a>'. |
' <a href="/adm/announcements?month='.$todayhash{'month'}. |
' <a href="/adm/announcements?month='.$todayhash{'month'}. |