--- loncom/interface/lonaboutme.pm 2006/12/10 08:44:35 1.59 +++ loncom/interface/lonaboutme.pm 2006/12/11 03:46:31 1.60 @@ -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.60 2006/12/11 03:46:31 raeburn 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; }