Return to lonnavmaps.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.332, 2005/06/28 21:41:43 | version 1.333, 2005/07/06 18:07:02 |
---|---|
Line 660 sub timeToHumanString { | Line 660 sub timeToHumanString { |
my $timeStr = strftime("%A, %b %e at %I:%M %P", localtime($time)); | my $timeStr = strftime("%A, %b %e at %I:%M %P", localtime($time)); |
$timeStr =~ s/12:00 am/00:00/; | $timeStr =~ s/12:00 am/00:00/; |
$timeStr =~ s/12:00 pm/noon/; | $timeStr =~ s/12:00 pm/noon/; |
return ($inPast ? "last " : "next ") . | return ($inPast ? "last " : "this ") . |
$timeStr; | $timeStr; |
} | } |