--- doc/loncapafiles/reseval_fixup.piml	2002/08/13 20:50:14	1.2
+++ doc/loncapafiles/reseval_fixup.piml	2015/03/16 05:25:47	1.6
@@ -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.2 2002/08/13 20:50:14 matthew Exp $ -->
+<!-- $Id: reseval_fixup.piml,v 1.6 2015/03/16 05:25:47 raeburn Exp $ -->
 
 <!--
 
@@ -33,17 +35,43 @@ http://www.lon-capa.org/
 <file>
 <target dist="default">/home/httpd/lonUsers</target>
 <perlscript mode="fg">
-# get a list of all user directories
-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`;
-  }
+
+my $doupdate;
+if (-e '/etc/loncapa-release') {
+    if (open(PIPE,"cat /etc/loncapa-release.prev |grep '^LON-CAPA release' |")) {
+        if (&lt;PIPE&gt; =~ /^\QLON-CAPA release \E(CVS_HEAD|\d+\.\d+\.\d+\.?\w*)\-\d+$/) {
+            my $previous = $1;
+            unless ($previous eq 'CVS_HEAD') {
+                my ($major,$minor) = ($previous =~ /^(\d+)\.(\d+)\./);
+                if (($major ne '') && ($minor ne '')) {
+                    if ((($major == 2) && ($minor &lt; 10)) || ($major &lt; 2)) {
+                        $doupdate = 1;
+                    }
+                }
+            }
+        }
+        close(PIPE);
+    }
+}
+
+if ($doupdate) {
+    print("Searching user directories for resevaldata.db files to update.\n");
+    # get a list of all user directories
+    my @dirs=`find <TARGET /> -type d `;
+    my @userdirs=grep(m|/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*/[^/]*|, @dirs);
+    foreach my $udir (@userdirs) {
+        chomp($udir);
+        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");
+            }
+        }
+    }
+} else {
+    print("Conversion of resevaldata.db (pre 2.0) to nohist_resevaldata.db (2.0 and later) files not required.\n");
 }
 </perlscript>
 </file>