Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.1075.2.27, 2013/01/09 16:33:56 | version 1.1075.2.28, 2013/01/15 18:48:17 |
---|---|
Line 11605 sub cleanup_empty_dirs { | Line 11605 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 ++; |
} | } |