[LON-CAPA-cvs] cvs: loncom /metadata_database searchcat.pl

[www]

www		Wed Aug 20 21:48:22 2003 EDT

  Modified files:              
    /loncom/metadata_database	searchcat.pl 
  Log:
  Comment out calls to dynamic meta function.
  
  
Index: loncom/metadata_database/searchcat.pl
diff -u loncom/metadata_database/searchcat.pl:1.38 loncom/metadata_database/searchcat.pl:1.39
--- loncom/metadata_database/searchcat.pl:1.38	Wed Aug 20 20:19:05 2003
+++ loncom/metadata_database/searchcat.pl	Wed Aug 20 21:48:22 2003
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.38 2003/08/21 00:19:05 www Exp $
+# $Id: searchcat.pl,v 1.39 2003/08/21 01:48:22 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -309,7 +309,7 @@
         my $ref=&metadata($m);
         my $m2='/res/'.&declutter($m);
         $m2=~s/\.meta$//;
-        &dynamicmeta($m2);
+#        &dynamicmeta($m2);
 	&count($m2);
         $delete_sth->execute($m2);
         $insert_sth->execute($ref->{'title'},
@@ -340,25 +340,25 @@
     #
     # Check the size of nohist_new_resevaldata.db compared to 
     # nohist_resevaldata.db
-    my @stat_result = stat($prodir.'/nohist_new_resevaldata.db');
-    my $new_size = $stat_result[7];
-    @stat_result = stat($prodir.'/nohist_resevaldata.db');
-    my $old_size = $stat_result[7];
-    if ($old_size) {
-	if ($new_size/$old_size > 0.15 ) {
-	    system('mv '.$prodir.'/nohist_new_resevaldata.db '.
-		   $prodir.'/nohist_resevaldata.db');
-	} else {
-	    print LOG "Size of '$user' old nohist_reseval: $old_size ".
-		"Size of new: $new_size.  Not overwriting.\n";
-	    my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
-	    my $subj="LON: $perlvar{'lonHostID'} searchcat.pl $user reseval ".
-		"modification error.";
-	    system("echo ".
-		"'See /home/httpd/perl/logs/searchcat.txt for information.' ".
-		   "| mailto $emailto -s '$subj' > /dev/null");
-	}
-    }   
+#    my @stat_result = stat($prodir.'/nohist_new_resevaldata.db');
+#    my $new_size = $stat_result[7];
+#    @stat_result = stat($prodir.'/nohist_resevaldata.db');
+#    my $old_size = $stat_result[7];
+#    if ($old_size) {
+#	if ($new_size/$old_size > 0.15 ) {
+#	    system('mv '.$prodir.'/nohist_new_resevaldata.db '.
+#		   $prodir.'/nohist_resevaldata.db');
+#	} else {
+#	    print LOG "Size of '$user' old nohist_reseval: $old_size ".
+#		"Size of new: $new_size.  Not overwriting.\n";
+#	    my $emailto="$perlvar{'lonAdmEMail'},$perlvar{'lonSysEMail'}";
+#	    my $subj="LON: $perlvar{'lonHostID'} searchcat.pl $user reseval ".
+#		"modification error.";
+#	    system("echo ".
+#		"'See /home/httpd/perl/logs/searchcat.txt for information.' ".
+#		   "| mailto $emailto -s '$subj' > /dev/null");
+#	}
+#    }   
 }
 # --------------------------------------------------- Close database connection
 $dbh->disconnect;