--- loncom/interface/portfolio.pm 2006/11/22 03:56:36 1.174 +++ loncom/interface/portfolio.pm 2006/12/11 03:43:15 1.175 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.174 2006/11/22 03:56:36 raeburn Exp $ +# $Id: portfolio.pm,v 1.175 2006/12/11 03:43:15 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2038,7 +2038,6 @@ sub get_quota { return $disk_quota; } - sub handler { # this handles file management my $r = shift; @@ -2134,6 +2133,13 @@ sub handler { $r->print(&Apache::loncommon::start_page($title)); } $r->rflush(); + my ($blocked,$blocktext) = + &Apache::loncommon::blocking_status('port',$uname,$udom); + if ($blocked) { + $r->print($blocktext); + $r->print(&Apache::loncommon::end_page()); + return OK; + } if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){ $r->print(''. 'No file was selected to upload.'.