loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.43, 2006/08/02 03:05:10	version 1.44, 2006/08/02 19:29:35
Line 389 sub portfolio_files {	Line 389 sub portfolio_files {
both => 0,	both => 0,
};	};
my $current_permissions =	my $current_permissions =
&Apache::lonnet::get_portfile_permissions($cdom,$cnum);	&Apache::lonnet::get_portfile_permissions($cdom,$cnum);
my %access_controls =	my %access_controls =
&Apache::lonnet::get_access_controls($current_permissions);	&Apache::lonnet::get_access_controls($current_permissions);
my %allfileshash;	my %allfileshash;
my $portaccess;	my $portaccess;
if ($mode eq 'showlink') {	if ($mode eq 'showlink') {
Line 405 sub portfolio_files {	Line 405 sub portfolio_files {

foreach my $filename (keys(%access_controls)) {	foreach my $filename (keys(%access_controls)) {
my $access_status =	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 ($portaccess eq 'both') {
if (($access_status ne 'ok') &&	if (($access_status ne 'ok') &&
($access_status !~ /^[^:]+:guest_/)) {	($access_status !~ /^[^:]+:guest_/)) {