--- loncom/metadata_database/searchcat.pl	2004/04/12 21:11:45	1.57
+++ loncom/metadata_database/searchcat.pl	2005/03/09 18:22:19	1.61
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.57 2004/04/12 21:11:45 matthew Exp $
+# $Id: searchcat.pl,v 1.61 2005/03/09 18:22:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -119,7 +119,7 @@ if (defined($oneuser)) {
 ##
 ## Use variables for table names so we can test this routine a little easier
 my $oldname = 'metadata';
-my $newname = 'newmetadata';
+my $newname = 'newmetadata'.$$; # append pid to have unique temporary table
 
 #
 # Read loncapa_apache.conf and loncapa.conf
@@ -142,7 +142,7 @@ if ($wwwid!=$<) {
 }
 #
 # Let people know we are running
-open(LOG,'>'.$perlvar{'lonDaemons'}.'/logs/searchcat.log');
+open(LOG,'>>'.$perlvar{'lonDaemons'}.'/logs/searchcat.log');
 &log(0,'==== Searchcat Run '.localtime()."====");
 
 
@@ -321,8 +321,9 @@ sub process_meta_file {
     my $ref=&metadata($filename);
     #
     # $url is the original file url, not the metadata file
-    my $url='/res/'.&declutter($filename);
-    $url=~s/\.meta$//;
+    my $target = $filename;
+    $target =~ s/\.meta$//;
+    my $url='/res/'.&declutter($target);
     &log(3,"    ".$url) if ($debug);
     #
     # Ignore some files based on their metadata
@@ -347,6 +348,14 @@ sub process_meta_file {
         &count_type($url);
     }
     #
+    if (! defined($ref->{'creationdate'}) ||
+        $ref->{'creationdate'} =~ /^\s*$/) {
+        $ref->{'creationdate'} = (stat($target))[9];
+    }
+    if (! defined($ref->{'lastrevisiondate'}) ||
+        $ref->{'lastrevisiondate'} =~ /^\s*$/) {
+        $ref->{'lastrevisiondate'} = (stat($target))[9];
+    }
     $ref->{'creationdate'}     = &sqltime($ref->{'creationdate'});
     $ref->{'lastrevisiondate'} = &sqltime($ref->{'lastrevisiondate'});
     my %Data = (
@@ -443,27 +452,30 @@ sub getfile {
 ########################################################
 ########################################################
 ##
-## Dynamic metadata description
+## Dynamic metadata description (incomplete)
+##
+## For a full description of all fields,
+## see LONCAPA::lonmetadata
 ##
 ##   Field             Type
 ##-----------------------------------------------------------
 ##   count             integer
 ##   course            integer
-##   course_list       comma seperated list of course ids
+##   course_list       comma separated list of course ids
 ##   avetries          real                                
-##   avetries_list     comma seperated list of real numbers
+##   avetries_list     comma separated list of real numbers
 ##   stdno             real
-##   stdno_list        comma seperated list of real numbers
+##   stdno_list        comma separated list of real numbers
 ##   usage             integer   
-##   usage_list        comma seperated list of resources
+##   usage_list        comma separated list of resources
 ##   goto              scalar
-##   goto_list         comma seperated list of resources
+##   goto_list         comma separated list of resources
 ##   comefrom          scalar
-##   comefrom_list     comma seperated list of resources
+##   comefrom_list     comma separated list of resources
 ##   difficulty        real
-##   difficulty_list   comma seperated list of real numbers
+##   difficulty_list   comma separated list of real numbers
 ##   sequsage          scalar
-##   sequsage_list     comma seperated list of resources
+##   sequsage_list     comma separated list of resources
 ##   clear             real
 ##   technical         real
 ##   correct           real