--- loncom/interface/lonaboutme.pm	2006/08/02 03:05:10	1.43
+++ loncom/interface/lonaboutme.pm	2006/08/02 19:29:35	1.44
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "About Me" Personal Information
 #
-# $Id: lonaboutme.pm,v 1.43 2006/08/02 03:05:10 raeburn Exp $
+# $Id: lonaboutme.pm,v 1.44 2006/08/02 19:29:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -389,9 +389,9 @@ sub portfolio_files {
                        both        => 0,
                      };
     my $current_permissions =
-                  &Apache::lonnet::get_portfile_permissions($cdom,$cnum);
+	&Apache::lonnet::get_portfile_permissions($cdom,$cnum);
     my %access_controls = 
-                  &Apache::lonnet::get_access_controls($current_permissions);
+	&Apache::lonnet::get_access_controls($current_permissions);
     my %allfileshash;
     my $portaccess;
     if ($mode eq 'showlink') {
@@ -405,7 +405,8 @@ sub portfolio_files {
 
     foreach my $filename (keys(%access_controls)) {
         my $access_status = 
-            &Apache::lonnet::get_portfolio_access($access_controls{$filename}); 
+            &Apache::lonnet::get_portfolio_access($cdom,$cnum,$filename,undef,
+						  $access_controls{$filename});
         if ($portaccess eq 'both') {
             if (($access_status ne 'ok') &&
                 ($access_status !~  /^[^:]+:guest_/)) {