version 1.69, 2008/01/20 22:25:05
|
version 1.70, 2008/09/11 02:07:27
|
Line 620 sub parse_directory {
|
Line 620 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 %dirlist = map { |
my %dirlist = map { |
((split('&',$_,2))[0],1) |
((split('&',$_,2))[0],1) |
} &Apache::lonnet::dirlist($path,$cdom,$cnum,$portfolio_root); |
} &Apache::lonnet::dirlist($portfolio_root.$path,$cdom,$cnum,$getpropath); |
foreach my $item (sort(keys(%{$currhash}))) { |
foreach my $item (sort(keys(%{$currhash}))) { |
$output .= &portfolio_row_start(); |
$output .= &portfolio_row_start(); |
$output .= '<td style="padding-left: '.($depth*25).'px">'; |
$output .= '<td style="padding-left: '.($depth*25).'px">'; |