loncom/localize/lonlocal.pm - diff

Return to lonlocal.pm CVS log

Up to [LON-CAPA] / loncom / localize

version 1.18, 2003/10/04 18:13:36	version 1.19, 2003/10/04 20:49:40
Line 303 sub locallocaltime {	Line 303 sub locallocaltime {
}	}
$year+=1900;	$year+=1900;
my $twelve=$twentyfour;	my $twelve=$twentyfour;
	my $ampm;
if ($twelve>12) {	if ($twelve>12) {
$twelve-=12;	$twelve-=12;
$twelve.=$lh->maketext('date_pm');	$ampm=$lh->maketext('date_pm');
} else {	} else {
$twelve.=$lh->maketext('date_am');	$ampm=$lh->maketext('date_am');
}	}
foreach	foreach
('seconds','minutes','twentyfour','twelve','day','year',	('seconds','minutes','twentyfour','twelve','day','year',
'month','weekday') {	'month','weekday','ampm') {
$format=~s/\$$_/eval('$'.$_)/gse;	$format=~s/\$$_/eval('$'.$_)/gse;
}	}
return $format;	return $format;