loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.158, 2014/12/01 22:52:48	version 1.160, 2021/01/02 21:07:36
Line 240 sub handler {	Line 240 sub handler {
my $start_page = &Apache::loncommon::start_page('Personal Information Page',$rss_link,$args);	my $start_page = &Apache::loncommon::start_page('Personal Information Page',$rss_link,$args);
$r->print($start_page);	$r->print($start_page);
}	}
	my ($blocked,$blocktext) =
	&Apache::loncommon::blocking_status('about',$cnum,$cdom);
	if ($blocked) {
	if ($target eq 'tex') {
	$r->print('\noindent{\large\textbf{'.&mt('No user personal information page available').'}}\\\\\\\\');
	} else {
	$r->print($blocktext);
	}
	$r->print(&Apache::loncommon::end_page());
	return OK;
	}

#----------------Print Privacy note (edit mode) or last modified date.	#----------------Print Privacy note (edit mode) or last modified date.

Line 671 sub portfolio_files {	Line 682 sub portfolio_files {
sub build_hierarchy {	sub build_hierarchy {
my ($r,$cdom,$cnum,$portaccess,$is_course,$filecounts,$mode,$access_info,	my ($r,$cdom,$cnum,$portaccess,$is_course,$filecounts,$mode,$access_info,
$allfileshash,$group) = @_;	$allfileshash,$group) = @_;
my $clientip = $r->get_remote_host();	my $clientip = &Apache::lonnet::get_requestor_ip($r);
foreach my $filename (sort(keys(%{$access_info}))) {	foreach my $filename (sort(keys(%{$access_info}))) {
my $access_status =	my $access_status =
&Apache::lonnet::get_portfolio_access($cdom,$cnum,$filename,$group,$clientip,	&Apache::lonnet::get_portfolio_access($cdom,$cnum,$filename,$group,$clientip,