loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.160, 2021/01/02 21:07:36	version 1.161, 2021/11/30 15:55:37
Line 108 sub handler {	Line 108 sub handler {
$is_course = &Apache::lonnet::is_course($cdom,$cnum);	$is_course = &Apache::lonnet::is_course($cdom,$cnum);
}	}

	my $clientip = &Apache::lonnet::get_requestor_ip($r);
my $candisplay = 1;	my $candisplay = 1;
if (!$is_course) {	if (!$is_course) {
if ($action ne 'portfolio') {	if ($action ne 'portfolio') {
Line 153 sub handler {	Line 154 sub handler {
'</ul>');	'</ul>');
} else {	} else {
my ($blocked,$blocktext) =	my ($blocked,$blocktext) =
&Apache::loncommon::blocking_status('port',$cnum,$cdom);	&Apache::loncommon::blocking_status('port',$clientip,$cnum,$cdom);
if (!$blocked) {	if (!$blocked) {
&display_portfolio_files($r,$is_course);	&display_portfolio_files($r,$is_course);
} else {	} else {
Line 241 sub handler {	Line 242 sub handler {
$r->print($start_page);	$r->print($start_page);
}	}
my ($blocked,$blocktext) =	my ($blocked,$blocktext) =
&Apache::loncommon::blocking_status('about',$cnum,$cdom);	&Apache::loncommon::blocking_status('about',$clientip,$cnum,$cdom);
if ($blocked) {	if ($blocked) {
if ($target eq 'tex') {	if ($target eq 'tex') {
$r->print('\noindent{\large\textbf{'.&mt('No user personal information page available').'}}\\\\\\\\');	$r->print('\noindent{\large\textbf{'.&mt('No user personal information page available').'}}\\\\\\\\');