loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

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">';