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

raeburn raeburn@source.lon-capa.org
Tue, 21 Sep 2010 05:40:59 -0000


raeburn		Tue Sep 21 05:40:59 2010 EDT

  Modified files:              (Branch: version_2_10_X)
    /loncom/interface	lonfeedback.pm 
  Log:
  - Backport 1.302.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.290.2.5 loncom/interface/lonfeedback.pm:1.290.2.6
--- loncom/interface/lonfeedback.pm:1.290.2.5	Fri Aug 27 16:37:23 2010
+++ loncom/interface/lonfeedback.pm	Tue Sep 21 05:40:59 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.290.2.5 2010/08/27 16:37:23 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.290.2.6 2010/09/21 05:40:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2681,7 +2681,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'}:''))) {