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