--- doc/loncapafiles/update_queue_slots.piml	2006/06/16 19:38:10	1.2
+++ doc/loncapafiles/update_queue_slots.piml	2024/07/08 22:06:15	1.6
@@ -1,9 +1,9 @@
 <!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" 
 	"http://lpml.sourceforge.net/DTD/piml.dtd">
-<!-- accesscount_seed.piml -->
+<!-- update_queue_slots.piml -->
 <!-- Matthew Hall -->
 
-<!-- $Id: update_queue_slots.piml,v 1.2 2006/06/16 19:38:10 albertel Exp $ -->
+<!-- $Id: update_queue_slots.piml,v 1.6 2024/07/08 22:06:15 raeburn Exp $ -->
 
 <!--
 
@@ -80,9 +80,7 @@ sub process_gradingqueue_file {
     my $backup = "\b"x(8+$count2+14+$count+6);
     $updated++;
     print($backup."Updated $last directories, $updated files");
-    my $prefix = $_;
-    $prefix =~s/\.db$//;
-    my $db = &amp;LONCAPA::_locking_hash_tie($prefix,'nohist_',&amp;GDBM_WRCREAT());
+    my $db = &amp;LONCAPA::locking_hash_tie($_,&amp;GDBM_WRCREAT());
     if ($type eq 'queue') {
 	foreach my $key (keys(%{$db})) {
 	    my $real_key = &amp;unescape($key);
@@ -128,21 +126,43 @@ sub process_gradingqueue_file {
     } else {
 	print("$type unsupported\n");
     }
-    &amp;untie_user_hash($db);
+    &amp;LONCAPA::locking_hash_untie($db);
 
 }
 
 
 sub main {
-     print("Updating grading queue and slot definitions\n");
-     my $perlvar=LONCAPA::Configuration::read_conf('loncapa.conf');
-     find(
-         {
-	     no_chdir   =&gt; 1,
-	     wanted     =&gt; \&amp;process_gradingqueue_file,
-	 }, 
-         $perlvar->{'lonUsersDir'});
-     print("\n");
+    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)) {
+                            $doupdate = 1;
+                        }
+                    }
+                }
+            }
+            close(PIPE);
+        }
+     }
+
+     if ($doupdate) {
+         print("Updating grading queue and slot definitions\n");
+         my $perlvar=LONCAPA::Configuration::read_conf('loncapa.conf');
+         find(
+             {
+	         no_chdir   =&gt; 1,
+	         wanted     =&gt; \&amp;process_gradingqueue_file,
+	     },
+             $perlvar->{'lonUsersDir'});
+         print("\n");
+     } else {
+         print("Update of grading queue and slot definitions not required.\n"); 
+     }
 }
 
 &amp;main();