[LON-CAPA-cvs] cvs: doc /loncapafiles update_queue_slots.piml

[albertel]

albertel		Tue Jun 27 10:26:39 2006 EDT

  Modified files:              
    /doc/loncapafiles	update_queue_slots.piml 
  Log:
  - morph to new filename LONCAPA hash tie routines
  
  
Index: doc/loncapafiles/update_queue_slots.piml
diff -u doc/loncapafiles/update_queue_slots.piml:1.2 doc/loncapafiles/update_queue_slots.piml:1.3
--- doc/loncapafiles/update_queue_slots.piml:1.2	Fri Jun 16 15:38:10 2006
+++ doc/loncapafiles/update_queue_slots.piml	Tue Jun 27 10:26:37 2006
@@ -3,7 +3,7 @@
 <!-- accesscount_seed.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.3 2006/06/27 14:26:37 albertel Exp $ -->
 
 <!--
 
@@ -80,9 +80,7 @@
     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($_,'nohist_',&amp;GDBM_WRCREAT());
     if ($type eq 'queue') {
 	foreach my $key (keys(%{$db})) {
 	    my $real_key = &amp;unescape($key);
@@ -128,7 +126,7 @@
     } else {
 	print("$type unsupported\n");
     }
-    &amp;untie_user_hash($db);
+    &amp;LONCAPA::locking_hash_untie($db);
 
 }