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