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