--- loncom/interface/lonfeedback.pm 2003/11/07 21:21:17 1.69 +++ loncom/interface/lonfeedback.pm 2003/11/24 16:46:15 1.71 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.69 2003/11/07 21:21:17 www Exp $ +# $Id: lonfeedback.pm,v 1.71 2003/11/24 16:46:15 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -327,6 +327,7 @@ $r->print(&generate_preview_button().'print (<Feedback not sent @@ -343,6 +344,7 @@ ENDFAILREDIR sub redirect_back { my ($r,$feedurl,$typestyle,$sendsomething,$sendposts,$status) = @_; + if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' }; $r->print (< Feedback sent @@ -648,10 +650,11 @@ onClick="this.form.comment.value=documen ENDPREVIEW } + sub handler { my $r = shift; if ($r->header_only) { - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK; } @@ -663,7 +666,7 @@ sub handler { if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { # ----------------------------------------------------------------- Hide/unhide - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; my $entry=$ENV{'form.hide'}?$ENV{'form.hide'}:$ENV{'form.unhide'}; @@ -705,7 +708,7 @@ sub handler { &mt('Changed discussion view mode').'
','0','0'); } elsif ($ENV{'form.deldisc'}) { # --------------------------------------------------------------- Hide for good - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; my $entry=$ENV{'form.deldisc'}; @@ -763,7 +766,7 @@ sub handler { if ($goahead) { # Go ahead with feedback, no ambiguous reference - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; if (