--- loncom/interface/lonaboutme.pm 2008/12/02 09:41:07 1.75 +++ loncom/interface/lonaboutme.pm 2008/12/09 10:45:44 1.78 @@ -1,7 +1,7 @@ # The LearningOnline Network # "About Me" Personal Information # -# $Id: lonaboutme.pm,v 1.75 2008/12/02 09:41:07 ehlerst Exp $ +# $Id: lonaboutme.pm,v 1.78 2008/12/09 10:45:44 ehlerst Exp $ # # Copyright Michigan State University Board of Trustees # @@ -108,6 +108,28 @@ sub handler { $is_course = &Apache::lonnet::is_course($cdom,$cnum); } + my $candisplay = 1; + if (!$is_course) { + $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('