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

albertel lon-capa-cvs@mail.lon-capa.org
Fri, 30 Jun 2006 04:49:05 -0000


albertel		Fri Jun 30 00:49:05 2006 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  - BUG#4895, non-anon bulletin borad posting was broken
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.206 loncom/interface/lonfeedback.pm:1.207
--- loncom/interface/lonfeedback.pm:1.206	Thu Jun 29 18:20:22 2006
+++ loncom/interface/lonfeedback.pm	Fri Jun 30 00:49:03 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.206 2006/06/29 22:20:22 albertel Exp $
+# $Id: lonfeedback.pm,v 1.207 2006/06/30 04:49:03 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2197,7 +2197,7 @@
 	  "if (window.name!='loncapaclient') { this.document.reldt.submit(); self.window.close(); }";
   }
   my $start_page=
-      &Apache::loncommon::start_page('New posts marked as read',undef,
+      &Apache::loncommon::start_page('Feedback sent',undef,
 				     {'redirect'    => [2,$feedurl],
 				      'only_body'   => 1,
 				      'add_entries' => \%onload});
@@ -3417,10 +3417,10 @@
 				      $attachmenturl,%to);
 
 # Discussion? Store that.
-
       my $numpost=0;
-      if ($env{'form.discuss'} =~/^(?:non|)anon$/ 
-	  || $env{'form.anondiscuss'}) {
+      if (  ($env{'form.discuss'} ne ''
+	     && $env{'form.discuss'} !~ /^(?:author|question|course|policy)/)
+	   || $env{'form.anondiscuss'} ne '') {
 	  my $subject = &clear_out_html($env{'form.subject'},undef,1);
 	  my $anonmode=($env{'form.discuss'} eq 'anon' || $env{'form.anondiscuss'} );
 	  $typestyle.=&adddiscuss($symb,$message,$anonmode,$attachmenturl,