|
version 1.82, 2014/01/16 13:31:31
|
version 1.83, 2016/01/27 22:22:59
|
|
Line 460 sub descend_tree {
|
Line 460 sub descend_tree {
|
| closedir(DIR); |
closedir(DIR); |
| $depth ++; |
$depth ++; |
| foreach my $item (@contents) { |
foreach my $item (@contents) { |
| if ($depth < 4) { |
if (($depth < 4) && (length($item) == 1)) { |
| &descend_tree($dom,$dir.'/'.$item,$depth,$allportusers,$alldomusers); |
&descend_tree($dom,$dir.'/'.$item,$depth,$allportusers,$alldomusers); |
| } else { |
} else { |
| if (-e $dir.'/'.$item.'/file_permissions.db') { |
if (-e $dir.'/'.$item.'/file_permissions.db') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to searchcat.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / metadata_database