loncom/interface/lonannounce.pm - diff

Return to lonannounce.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.13, 2003/06/18 15:02:20	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); }
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>');