loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.191, 2008/04/16 23:11:06	version 1.192, 2008/04/17 14:46:18
Line 2336 sub handler {	Line 2336 sub handler {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
$r->print(&coursegrp_portfolio_header($udom,$uname,$grp_desc));	$r->print(&coursegrp_portfolio_header($udom,$uname,$grp_desc));
}	}
my @dir_list=&get_dir_list($portfolio_root,undef,$group);	my @dir_list=&get_dir_list($portfolio_root,$current_path,$group);
if ($dir_list[0] eq 'no_such_dir'){	if ($dir_list[0] eq 'no_such_dir'){
# two main reasons for this:	# two main reasons for this:
# 1) never been here, so directory structure not created	# 1) never been here, so directory structure not created
Line 2352 sub handler {	Line 2352 sub handler {
$current_path = '/'; # force it back to the root	$current_path = '/'; # force it back to the root
}	}
# now grab the directory list again, for the first time	# now grab the directory list again, for the first time
@dir_list=	@dir_list=&get_dir_list($portfolio_root,$current_path,$group);
&Apache::lonnet::dirlist($portfolio_root.$current_path,
$udom,$uname,$getpropath);
}	}
# need to know if directory is empty so it can be removed if desired	# need to know if directory is empty so it can be removed if desired
my $is_empty=(@dir_list == 2);	my $is_empty=(@dir_list == 2);