--- loncom/metadata_database/searchcat.pl	2002/10/08 16:59:26	1.22
+++ loncom/metadata_database/searchcat.pl	2002/10/18 13:54:31	1.24
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.22 2002/10/08 16:59:26 www Exp $
+# $Id: searchcat.pl,v 1.24 2002/10/18 13:54:31 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -45,6 +45,7 @@ use IO::File;
 use HTML::TokeParser;
 use DBI;
 use GDBM_File;
+use POSIX qw(strftime mktime);
 
 my @metalist;
 
@@ -84,7 +85,7 @@ sub dynamicmeta {
     my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);
     my $prodir=&propath($adomain,$aauthor);
     if (tie(%evaldata,'GDBM_File',
-            $prodir.'/nohist_resevaldata.db',&GDBM_WRCREAT,0640)) {
+            $prodir.'/nohist_resevaldata.db',&GDBM_WRCREAT(),0640)) {
        my %sum=();
        my %cnt=();
        my %listitems=('count'        => 'add',
@@ -335,7 +336,30 @@ 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;
+}
+