--- doc/loncapafiles/reseval_fixup.piml	2002/08/15 15:41:57	1.4
+++ doc/loncapafiles/reseval_fixup.piml	2004/02/10 20:54:14	1.5
@@ -3,7 +3,7 @@
 <!-- reseval_fixup.piml -->
 <!-- Guy Albertelli -->
 
-<!-- $Id: reseval_fixup.piml,v 1.4 2002/08/15 15:41:57 harris41 Exp $ -->
+<!-- $Id: reseval_fixup.piml,v 1.5 2004/02/10 20:54:14 www Exp $ -->
 
 <!--
 
@@ -40,11 +40,13 @@ my @dirs=`find <TARGET /> -type d `;
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 foreach my $udir (@userdirs) {
   chomp($udir);
-  if (-e "$udir/resevaldata.hist") {
-    unlink("$udir/resevaldata.hist");
-  }
-  if (-e "$udir/resevaldata.db") {
-    `mv $udir/resevaldata.db $udir/nohist_resevaldata.db`;
+  unless (-e "$udir/nohist_resevaldata.db") {	
+     if (-e "$udir/resevaldata.db") {
+        `mv $udir/resevaldata.db $udir/nohist_resevaldata.db`;
+     }
+     if (-e "$udir/resevaldata.hist") {
+        unlink("$udir/resevaldata.hist");
+     }
   }
 }
 </perlscript>