--- doc/loncapafiles/reseval_fixup.piml	2002/08/09 19:49:30	1.1
+++ doc/loncapafiles/reseval_fixup.piml	2004/02/10 20:54:14	1.5
@@ -1,7 +1,9 @@
-<!-- sanitycheck.piml -->
-<!-- Scott Harrison -->
+<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" 
+	"http://lpml.sourceforge.net/DTD/piml.dtd">
+<!-- reseval_fixup.piml -->
+<!-- Guy Albertelli -->
 
-<!-- $Id: reseval_fixup.piml,v 1.1 2002/08/09 19:49:30 albertel Exp $ -->
+<!-- $Id: reseval_fixup.piml,v 1.5 2004/02/10 20:54:14 www Exp $ -->
 
 <!--
 
@@ -38,12 +40,13 @@ my @dirs=`find <TARGET /> -type d `;
 my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
 foreach my $udir (@userdirs) {
   chomp($udir);
-  print("$udir \n");
-  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>