--- loncom/interface/lonfeedback.pm 2003/11/03 20:34:54 1.65 +++ loncom/interface/lonfeedback.pm 2003/11/03 23:23:34 1.66 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.65 2003/11/03 20:34:54 www Exp $ +# $Id: lonfeedback.pm,v 1.66 2003/11/03 23:23:34 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -524,7 +524,7 @@ sub adddiscuss { $ENV{'enrironment.generation'}, 'attachmenturl'=> $attachmenturl); if ($ENV{'form.replydisc'}) { - $contrib{'replyto'}=$ENV{'form.replydisc'}; + $contrib{'replyto'}=(split(/\:\:\:/,$ENV{'form.replydisc'}))[1]; } if ($anon) { $contrib{'anonymous'}='true'; @@ -657,7 +657,14 @@ sub handler { $feedurl=~s/^$ENV{'HTTP_HOST'}//; $feedurl=~s/\?.+$//; - my $symb=&Apache::lonnet::symbread($feedurl); + my $symb; + if ($ENV{'form.replydisc'}) { + $symb=(split(/\:\:\:/,$ENV{'form.replydisc'}))[0]; + my ($map,$id,$url)=&Apache::lonnet::decode_symb($symb); + $feedurl=&Apache::lonnet::clutter($url); + } else { + $symb=&Apache::lonnet::symbread($feedurl); + } unless ($symb) { $symb=$ENV{'form.symb'}; if ($symb) {