--- loncom/interface/lonaboutme.pm 2008/11/20 13:11:36 1.74 +++ loncom/interface/lonaboutme.pm 2008/12/15 16:37:44 1.85 @@ -1,7 +1,7 @@ # The LearningOnline Network # "About Me" Personal Information # -# $Id: lonaboutme.pm,v 1.74 2008/11/20 13:11:36 jms Exp $ +# $Id: lonaboutme.pm,v 1.85 2008/12/15 16:37:44 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -108,6 +108,30 @@ sub handler { $is_course = &Apache::lonnet::is_course($cdom,$cnum); } + my $candisplay = 1; + if (!$is_course) { + if ($action ne 'portfolio') { + $candisplay = &Apache::lonnet::usertools_access($cnum,$cdom,'aboutme'); + if ((!$candisplay) && ($env{'request.course.id'})) { + $candisplay = &aboutme_access($cnum,$cdom); + } + if (!$candisplay) { + if ($target eq 'tex') { + $r->print('\noindent{\large\textbf{'.&mt('No user home page available').'}}\\\\\\\\'); + } else { + $r->print(&Apache::loncommon::start_page("Personal Information")); + $r->print('
'.&mt('Close window').'');
}
$r->print('
'.&mt('Last updated').': '.$lastmod);
-
$r->print(&Apache::loncommon::end_page());
} else {
$r->print('\end{document}');
@@ -421,10 +433,10 @@ sub print_portfiles_link {
difl => 'Display file listing',
);
if ($filecounts->{'both'} > 0) {
- $output = '