--- loncom/interface/lonaboutme.pm 2006/12/09 23:33:55 1.58 +++ loncom/interface/lonaboutme.pm 2007/03/08 01:58:44 1.61 @@ -1,7 +1,7 @@ # The LearningOnline Network # "About Me" Personal Information # -# $Id: lonaboutme.pm,v 1.58 2006/12/09 23:33:55 albertel Exp $ +# $Id: lonaboutme.pm,v 1.61 2007/03/08 01:58:44 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -57,7 +57,7 @@ sub handler { 'No user information available'); return OK; } else { - $is_course = &is_course($cdom,$cnum); + $is_course = &Apache::lonnet::is_course($cdom,$cnum); } # --------------------------------------------------------- The syllabus fields @@ -74,7 +74,13 @@ sub handler { # ----------------------------------------------- Available Portfolio file display if (($target ne 'tex') && ($action eq 'portfolio')) { &display_portfolio_header($r,$is_course); - &display_portfolio_files($r,$is_course); + my ($blocked,$blocktext) = + &Apache::loncommon::blocking_status('port',$cnum,$cdom); + if (!$blocked) { + &display_portfolio_files($r,$is_course); + } else { + $r->print($blocktext); + } $r->print(&Apache::loncommon::end_page()); return OK; } @@ -125,10 +131,10 @@ sub handler { '"'); } if ($target ne 'tex') { - $r->print('

'.$Apache::lonnet::domaindescription{$cdom}.'

'. + $r->print('

'.&Apache::lonnet::domain($cdom,'description').'

'. '

'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).'

'.&Apache::lonrss::advertisefeeds($cnum,$cdom)); } else { - $r->print('\textbf{'.$Apache::lonnet::domaindescription{$cdom}.'}\\\\'); + $r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\'); } my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum); my $allowed=0;