version 1.147, 2010/09/26 02:02:42
|
version 1.148, 2011/10/17 12:41:30
|
Line 777 sub parse_directory {
|
Line 777 sub parse_directory {
|
my $portfolio_root = &Apache::portfolio::get_portfolio_root($cdom,$cnum, |
my $portfolio_root = &Apache::portfolio::get_portfolio_root($cdom,$cnum, |
$group); |
$group); |
my $getpropath = 1; |
my $getpropath = 1; |
my %dirlist = map { |
my ($listref,$listerror) = |
((split('&',$_,2))[0],1) |
&Apache::lonnet::dirlist($portfolio_root.$path,$cdom,$cnum,$getpropath); |
} &Apache::lonnet::dirlist($portfolio_root.$path,$cdom,$cnum,$getpropath); |
my %dirlist; |
|
if (ref($listref) eq 'ARRAY') { |
|
%dirlist = map { ((split('&',$_,2))[0],1) } @{$listref}; |
|
} |
foreach my $item (sort(keys(%{$currhash}))) { |
foreach my $item (sort(keys(%{$currhash}))) { |
$output .= &Apache::loncommon::start_data_table_row(); |
$output .= &Apache::loncommon::start_data_table_row(); |
$output .= '<td style="padding-left: '.($depth*25).'px">'; |
$output .= '<td style="padding-left: '.($depth*25).'px">'; |