--- loncom/interface/lonfeedback.pm 2002/09/10 21:06:22 1.30 +++ 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.30 2002/09/10 21:06:22 www Exp $ +# $Id: lonfeedback.pm,v 1.31 2002/09/11 13:36:50 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -409,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; } @@ -425,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'}) {