--- loncom/interface/lonaboutme.pm 2006/12/10 08:44:35 1.59 +++ 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.59 2006/12/10 08:44:35 raeburn Exp $ +# $Id: lonaboutme.pm,v 1.61 2007/03/08 01:58:44 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -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;