version 1.2, 2006/06/16 19:38:10
|
version 1.4, 2006/06/28 20:48:04
|
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($_,&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); |
|
|
} |
} |
|
|