loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.69, 2002/09/17 15:21:51
+version 1.70, 2002/10/18 13:49:49
  Line 1222  sub maketime {
  }
+ #########################################
+ #
+ # Retro-fixing of un-backward-compatible time format
+ sub unsqltime {
+     my $timestamp=shift;
+     if ($timestamp=~/^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/) {
+        $timestamp=&maketime(
+ 	   'year'=>$1,'month'=>$2,'day'=>$3,
+            'hours'=>$4,'minutes'=>$5,'seconds'=>$6);
+     }
+     return $timestamp;
+ }
+ #########################################
  sub findallcourses {
      my %courses=();
      my $now=time;