[LON-CAPA-cvs] cvs: loncom /interface lonaboutme.pm

[raeburn]

raeburn		Sun Dec 10 22:46:31 2006 EDT

  Modified files:              
    /loncom/interface	lonaboutme.pm 
  Log:
  Inhibit display via /adm/$dom/$uname/aboutme/portfolio of available portfolio files belonging to user $uname:$udom in a course with active blocks$ if user lacks 'evb' privilege.
  
  
Index: loncom/interface/lonaboutme.pm
diff -u loncom/interface/lonaboutme.pm:1.59 loncom/interface/lonaboutme.pm:1.60
--- loncom/interface/lonaboutme.pm:1.59	Sun Dec 10 03:44:35 2006
+++ loncom/interface/lonaboutme.pm	Sun Dec 10 22:46:31 2006
@@ -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 @@
 # ----------------------------------------------- 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;
     }