loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.14, 2004/07/09 17:12:38	version 1.15, 2004/07/09 18:43:40
Line 216 sub handler {	Line 216 sub handler {
# we always need $dirList, plus this will return information about the current file	# we always need $dirList, plus this will return information about the current file
# as well as information about he home server directory structure, specifically	# as well as information about he home server directory structure, specifically
# the path to the users userfiles directory.	# the path to the users userfiles directory.
my $portfolioRoot = '/home/httpd/lonUsers/'.$ENV{'user.domain'}.'/';	my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},
$ENV{'user.name'} =~ /^(.?)(.?)(.?)/;	$ENV{'user.name'}).
$portfolioRoot = $portfolioRoot.$1.'/'.$2.'/'.$3.'/'.$ENV{'user.name'}.'/userfiles/portfolio';	'/userfiles/portfolio';
my @list = &Apache::lonnet::dirlist($currentPath, $ENV{'user.domain'}, $ENV{'user.name'}, $portfolioRoot);	my @list = &Apache::lonnet::dirlist($currentPath, $ENV{'user.domain'}, $ENV{'user.name'}, $portfolio_root);
@dirList = @list;	@dirList = @list;
if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired	if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired
$isEmpty = 1;	$isEmpty = 1;