![[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.369, 2006/05/11 19:04:31 | version 1.370, 2006/05/12 02:17:50 |
|---|---|
| Line 2606 sub timehash { | Line 2606 sub timehash { |
| 'dlsav' => $ltime[8] ); | 'dlsav' => $ltime[8] ); |
| } | } |
| sub utc_string { | |
| my ($date)=@_; | |
| my @utctime=gmtime($date); | |
| my $year=$utctime[5]+1900; | |
| my $month=$utctime[4]+1; | |
| return "$year$month$utctime[3]T$utctime[2]$utctime[1]$utctime[0]Z"; | |
| } | |
| sub maketime { | sub maketime { |
| my %th=@_; | my %th=@_; |
| return POSIX::mktime( | return POSIX::mktime( |