Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.1110, 2013/01/09 03:56:27 | version 1.1111, 2013/01/15 17:37:45 |
---|---|
Line 11626 sub cleanup_empty_dirs { | Line 11626 sub cleanup_empty_dirs { |
my $numitems = 0; | my $numitems = 0; |
foreach my $item (@dircontents) { | foreach my $item (@dircontents) { |
if (-d "$path/$item") { | if (-d "$path/$item") { |
&recurse_dirs("$path/$item"); | &cleanup_empty_dirs("$path/$item"); |
if (-e "$path/$item") { | if (-e "$path/$item") { |
$numitems ++; | $numitems ++; |
} | } |