version 1.3, 2006/06/27 14:26:37
|
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 $db = &LONCAPA::locking_hash_tie($_,'nohist_',&GDBM_WRCREAT()); |
my $db = &LONCAPA::locking_hash_tie($_,&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); |