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

[raeburn]

raeburn		Tue Sep 21 04:18:50 2010 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - Bug 6363. For bulletinboard need to use real symb instead of fake symb in second arg 
    passed to &discussion_open().
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.301 loncom/interface/lonfeedback.pm:1.302
--- loncom/interface/lonfeedback.pm:1.301	Thu Aug 26 03:59:16 2010
+++ loncom/interface/lonfeedback.pm	Tue Sep 21 04:18:50 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.301 2010/08/26 03:59:16 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.302 2010/09/21 04:18:50 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2667,7 +2667,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'}:''))) {