![[BACK]](/icons/back.gif){kind=icon}
Return to clean_db.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / debugging_tools|
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; |