--- loncom/interface/portfolio.pm	2004/07/03 00:35:01	1.11
+++ loncom/interface/portfolio.pm	2004/07/09 16:36:09	1.12
@@ -213,9 +213,12 @@ sub handler {
     # we always need $dirList, plus this will return information about the current file
     # as well as information about he home server directory structure, specifically
     # the path to the users userfiles directory.    
-	my $list = &Apache::lonnet::portfoliolist($currentPath, $currentFile);
-	@dirList = split(/:/,$list);
-    if (@dirList == 2){ # need to know if directory is empty to it can be removed if desired
+    my $portfolioRoot = '/home/httpd/lonUsers/'.$ENV{'user.domain'}.'/';
+    $ENV{'user.name'} =~ /^(.?)(.?)(.?)/;
+    $portfolioRoot = $portfolioRoot.$1.'/'.$2.'/'.$3.'/'.$ENV{'user.name'}.'/userfiles/portfolio';
+    my @list = &Apache::lonnet::dirlist($currentPath,  $ENV{'user.domain'}, $ENV{'user.name'}, $portfolioRoot);
+    @dirList = @list;
+    if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired
         $isEmpty = 1;
     }else{
         $isEmpty = 0;