Return to clean_db.pl CVS log | Up to [LON-CAPA] / loncom / debugging_tools |
version 1.3, 2006/06/27 14:35:24 | version 1.4, 2007/04/03 00:59:45 |
---|---|
Line 65 if (! $dbref) { | Line 65 if (! $dbref) { |
warn("Unable to tie to $fname"); | warn("Unable to tie to $fname"); |
exit; | exit; |
} | } |
while (my ($key,$value) = each(%{$dbref})) { | if (exists($dbref->{$key_to_remove}) { |
if ($key ne $key_to_remove) { next; } | |
delete($dbref->{$key}); | delete($dbref->{$key}); |
if ($fname =~ m|/nohist_[^/]*.db|) { exit; } | if ($fname =~ m|/nohist_[^/]*.db|) { exit; } |
my $hist=$fname; | my $hist=$fname; |