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