--- loncom/interface/lonfeedback.pm	2002/08/26 12:47:28	1.29
+++ loncom/interface/lonfeedback.pm	2002/09/11 13:36:50	1.31
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.29 2002/08/26 12:47:28 www Exp $
+# $Id: lonfeedback.pm,v 1.31 2002/09/11 13:36:50 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -399,9 +399,8 @@ sub handler {
                      $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
 		     $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
 
-    &redirect_back($r,'/res/'.$url,'Changed discussion status<p>','0');
-
-      
+    &redirect_back($r,&Apache::lonnet::clutter($url),
+       'Changed discussion status<p>','0');
   } else {
 # ------------------------------------------------------------- Normal feedback
   my $feedurl=$ENV{'form.postdata'};
@@ -410,6 +409,13 @@ sub handler {
   $feedurl=~s/^$ENV{'HTTP_HOST'}//;
 
   my $symb=&Apache::lonnet::symbread($feedurl);
+  unless ($symb) {
+      $symb=$ENV{'form.symb'};
+      if ($symb) {
+	  my ($map,$id,$url)=split(/\_\_\_/,$symb);
+          $feedurl=&Apache::lonnet::clutter($url);
+      }
+  }
   my $goahead=1;
   if ($feedurl=~/\.(problem|exam|quiz|assess|survey|form)$/) {
       unless ($symb) { $goahead=0; }
@@ -426,6 +432,8 @@ sub handler {
       ) 
       || 
       ($ENV{'request.course.id'} && ($feedurl!~m:^/adm:))
+      ||
+      ($ENV{'request.course.id'} && ($symb=~/^bulletin\_\_\_/))
      ) {
 # --------------------------------------------------- Print login screen header
     unless ($ENV{'form.sendit'}) {