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>'); |