loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2003/05/23 16:14:33	version 1.13, 2003/06/18 15:02: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); }
	if (($year<1970) \|\| ($year>2037)) {
	}
$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'}.