loncom/metadata_database/searchcat.pl - diff

Return to searchcat.pl CVS log

Up to [LON-CAPA] / loncom / metadata_database

-version 1.23, 2002/10/08 18:45:33
+version 1.24, 2002/10/18 13:54:31
  Line 45  use IO::File;
  use HTML::TokeParser;
  use DBI;
  use GDBM_File;
+ use POSIX qw(strftime mktime);
  my @metalist;
- Line 335  sub propath {
+ Line 336  sub propath {
  # ---------------------------- convert 'time' format into a datetime sql format
  sub sqltime {
      my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
- 	localtime(@_[0]);
+ 	localtime(&unsqltime(@_[0]));
      $mon++; $year+=1900;
      return "$year-$mon-$mday $hour:$min:$sec";
  }
+ sub maketime {
+     my %th=@_;
+     return POSIX::mktime(
+         ($th{'seconds'},$th{'minutes'},$th{'hours'},
+          $th{'day'},$th{'month'}-1,$th{'year'}-1900,0,0,$th{'dlsav'}));
+ }
+ #########################################
+ #
+ # 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;
+ }