--- loncom/interface/portfolio.pm	2004/07/09 17:12:38	1.14
+++ loncom/interface/portfolio.pm	2004/07/09 18:43:40	1.15
@@ -216,10 +216,10 @@ 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 $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);
+    my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},
+						     $ENV{'user.name'}).
+						       '/userfiles/portfolio';
+    my @list = &Apache::lonnet::dirlist($currentPath,  $ENV{'user.domain'}, $ENV{'user.name'}, $portfolio_root);
     @dirList = @list;
     if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired
         $isEmpty = 1;