![[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.370, 2006/05/12 02:17:50 | version 1.371, 2006/05/12 15:53:10 |
|---|---|
| Line 2608 sub timehash { | Line 2608 sub timehash { |
| sub utc_string { | sub utc_string { |
| my ($date)=@_; | my ($date)=@_; |
| my @utctime=gmtime($date); | return strftime("%Y%m%dT%H%M%SZ",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 { |