doc/loncapafiles/update_queue_slots.piml - diff

Return to update_queue_slots.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.2, 2006/06/16 19:38:10	version 1.3, 2006/06/27 14:26:37
Line 80 sub process_gradingqueue_file {	Line 80 sub process_gradingqueue_file {
my $backup = "\b"x(8+$count2+14+$count+6);	my $backup = "\b"x(8+$count2+14+$count+6);
$updated++;	$updated++;
print($backup."Updated $last directories, $updated files");	print($backup."Updated $last directories, $updated files");
my $prefix = $_;	my $db = &LONCAPA::locking_hash_tie($_,'nohist_',&GDBM_WRCREAT());
$prefix =~s/\.db$//;
my $db = &LONCAPA::_locking_hash_tie($prefix,'nohist_',&GDBM_WRCREAT());
if ($type eq 'queue') {	if ($type eq 'queue') {
foreach my $key (keys(%{$db})) {	foreach my $key (keys(%{$db})) {
my $real_key = &unescape($key);	my $real_key = &unescape($key);
Line 128 sub process_gradingqueue_file {	Line 126 sub process_gradingqueue_file {
} else {	} else {
print("$type unsupported\n");	print("$type unsupported\n");
}	}
&untie_user_hash($db);	&LONCAPA::locking_hash_untie($db);

}	}