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

[www]

www		Mon Nov 24 11:46:15 2003 EDT

  Modified files:              
    /loncom/interface	lonfeedback.pm 
  Log:
  Send out correct encoding headers.
  
  
Index: loncom/interface/lonfeedback.pm
diff -u loncom/interface/lonfeedback.pm:1.70 loncom/interface/lonfeedback.pm:1.71
--- loncom/interface/lonfeedback.pm:1.70	Mon Nov 24 11:00:45 2003
+++ loncom/interface/lonfeedback.pm	Mon Nov 24 11:46:15 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.70 2003/11/24 16:00:45 www Exp $
+# $Id: lonfeedback.pm,v 1.71 2003/11/24 16:46:15 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -650,10 +650,11 @@
 </form>
 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;
   }
@@ -665,7 +666,7 @@
 
   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'};
@@ -707,7 +708,7 @@
 		     &mt('Changed discussion view mode').'<br />','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'};
@@ -765,7 +766,7 @@
 
   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 (