Return to db_copy.pl CVS log | Up to [LON-CAPA] / loncom / debugging_tools |
version 1.5, 2006/10/13 21:00:06 | version 1.6, 2007/01/25 18:05:40 |
---|---|
Line 79 sub process_db { | Line 79 sub process_db { |
} | } |
sub main { | sub main { |
my $dir = $perlvar{'lonUsersDir'}.'/temp/y/'; | my $dir = $perlvar{'lonUsersDir'}; |
print("Doing $dir\n"); | print("Doing $dir\n"); |
&find({ no_chdir => 1, | &find({ no_chdir => 1, |
wanted => \&count_db, }, | wanted => \&count_db, }, |