[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /interface lonfeedback.pm

raeburn raeburn@source.lon-capa.org
Tue, 21 Sep 2010 04:58:17 -0000


raeburn		Tue Sep 21 04:58:17 2010 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/interface	lonfeedback.pm 
  Log:
  - Backport 1.302.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.273.4.10 loncom/interface/lonfeedback.pm:1.273.4.11
--- loncom/interface/lonfeedback.pm:1.273.4.10	Tue Sep 21 04:56:15 2010
+++ loncom/interface/lonfeedback.pm	Tue Sep 21 04:58:17 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.273.4.10 2010/09/21 04:56:15 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.273.4.11 2010/09/21 04:58:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2642,7 +2642,13 @@
     }
     if (($env{'request.course.id'}) && (!$env{'form.sendmessageonly'})) {
         my ($blocked,$blocktext) = &Apache::loncommon::blocking_status('boards');
-        if (!$blocked && &discussion_open(undef,$symb) && 
+        my $realsymb = $symb;
+        if ($symb=~/^bulletin___/) {
+            my $filename=(&Apache::lonnet::decode_symb($symb))[2];
+            $filename=~s|^adm/wrapper/||;
+            $realsymb=&Apache::lonnet::symbread($filename);
+        }
+        if (!$blocked && &discussion_open(undef,$realsymb) &&
 	    &Apache::lonnet::allowed('pch',
 				     $env{'request.course.id'}.
 				     ($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''))) {