![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.208, 2004/08/26 21:42:40 | version 1.210, 2004/09/02 13:38:35 |
|---|---|
| Line 812 format. | Line 812 format. |
| sub csv_translate { | sub csv_translate { |
| my $text = shift; | my $text = shift; |
| $text =~ s/\"/\"\"/g; | $text =~ s/\"/\"\"/g; |
| $text =~ s/\n//g; | $text =~ s/\n/ /g; |
| return $text; | return $text; |
| } | } |
| Line 2331 sub maketime { | Line 2331 sub maketime { |
| my %th=@_; | my %th=@_; |
| return POSIX::mktime( | return POSIX::mktime( |
| ($th{'seconds'},$th{'minutes'},$th{'hours'}, | ($th{'seconds'},$th{'minutes'},$th{'hours'}, |
| $th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,$th{'dlsav'})); | $th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,-1)); |
| } | } |
| ######################################### | ######################################### |