--- loncom/localize/lonlocal.pm 2003/10/04 18:13:36 1.18 +++ loncom/localize/lonlocal.pm 2003/10/04 20:49:40 1.19 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Localization routines # -# $Id: lonlocal.pm,v 1.18 2003/10/04 18:13:36 www Exp $ +# $Id: lonlocal.pm,v 1.19 2003/10/04 20:49:40 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -303,15 +303,16 @@ sub locallocaltime { } $year+=1900; my $twelve=$twentyfour; + my $ampm; if ($twelve>12) { $twelve-=12; - $twelve.=$lh->maketext('date_pm'); + $ampm=$lh->maketext('date_pm'); } else { - $twelve.=$lh->maketext('date_am'); + $ampm=$lh->maketext('date_am'); } foreach ('seconds','minutes','twentyfour','twelve','day','year', - 'month','weekday') { + 'month','weekday','ampm') { $format=~s/\$$_/eval('$'.$_)/gse; } return $format;