--- loncom/interface/lonfeedback.pm	2005/02/17 04:11:20	1.151
+++ loncom/interface/lonfeedback.pm	2005/02/17 04:39:58	1.152
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.151 2005/02/17 04:11:20 albertel Exp $
+# $Id: lonfeedback.pm,v 1.152 2005/02/17 04:39:58 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1436,9 +1436,12 @@ END
   my $latexHelp=&Apache::loncommon::helpLatexCheatsheet();
   my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders();
   my $send=&mt('Send');
+  my $html=&Apache::lonxml::xmlbegin();
+  my $encoding=&Apache::lonxml::fontsettings();
   $r->print(<<END);
-<html>
+$html
 <head>
+$encoding
 <title>The LearningOnline Network with CAPA</title>
 <meta http-equiv="pragma" content="no-cache"></meta>
 $htmlheader
@@ -1661,9 +1664,12 @@ sub print_display_options {
         $currtogg = $lt{'toggon'};
         $disctogg = 'toggon';
     }
+    my $html=&Apache::lonxml::xmlbegin();
+    my $encoding=&Apache::lonxml::fontsettings();
     $r->print(<<END);
-<html>
+$html
 <head>
+$encoding
 <title>$lt{'dido'}</title>
 <meta http-equiv="pragma" content="no-cache" />
 <script>
@@ -1843,10 +1849,12 @@ sub print_sortfilter_options {
     my %role_types = ();
     my %status_types = ();
     &sort_filter_names(\%sort_types,\%role_types,\%status_types);
-
+    my $html=&Apache::lonxml::xmlbegin();
+    my $encoding=&Apache::lonxml::fontsettings();
     $r->print(<<END);
-<html>
+$html
 <head>
+$encoding
 <title>$lt{'diso'}</title>
 <meta http-equiv="pragma" content="no-cache" />
 <script type="text/javascript">
@@ -1996,9 +2004,12 @@ sub print_showposters {
             }
         }
     }
+    my $html=&Apache::lonxml::xmlbegin();
+    my $encoding=&Apache::lonxml::fontsettings();
     $r->print(<<END);
-<html>
+$html
 <head>
+$encoding
 <title>$lt{'diso'}</title>
 <meta http-equiv="pragma" content="no-cache" />
 </head>
@@ -2109,9 +2120,13 @@ sub fail_redirect {
   my ($r,$feedurl) = @_;
   if ($feedurl=~/^\/adm\//) { $feedurl.='?register=1' };
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
+  my $html=&Apache::lonxml::xmlbegin();
+  my $encoding=&Apache::lonxml::fontsettings();
   $r->print (<<ENDFAILREDIR);
-<html>
-<head><title>Feedback not sent</title>
+$html
+<head>
+$encoding
+<title>Feedback not sent</title>
 <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
 </head>
@@ -2195,9 +2210,12 @@ sub redirect_back {
   }
   $feedurl=&Apache::lonenc::check_encrypt($feedurl);
   my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
+  my $html=&Apache::lonxml::xmlbegin();
+  my $encoding=&Apache::lonxml::fontsettings();
   $r->print (<<ENDREDIR);
-<html>
+$html
 <head>
+$encoding
 <title>Feedback sent</title>
 <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
@@ -2225,9 +2243,13 @@ sub no_redirect_back {
   my ($r,$feedurl) = @_;
   my $nofeed=&mt('Sorry, no feedback possible on this resource  ...');
   my $continue=&mt('Continue');
+  my $html=&Apache::lonxml::xmlbegin();
+  my $encoding=&Apache::lonxml::fontsettings();
   $r->print (<<ENDNOREDIR);
-<html>
-<head><title>Feedback not sent</title>
+$html
+<head>
+$encoding
+<title>Feedback not sent</title>
 <meta http-equiv="pragma" content="no-cache" />
 ENDNOREDIR
 
@@ -2606,9 +2628,12 @@ sub modify_attachments {
         &extract_attachments($attachmenturls,$idx,$numoldver,\$msg,\%attachments,\%currattach,$currdelold);
     }
     &Apache::lonenc::check_encrypt(\$symb);
+    my $html=&Apache::lonxml::xmlbegin();
+    my $encoding=&Apache::lonxml::fontsettings();
     $r->print(<<END);
-<html>
+$html
 <head>
+$encoding
 <title>Managing Attachments</title>
 <script>
  function setAction () {
@@ -2957,10 +2982,13 @@ sub handler {
   if ($ENV{'form.allversions'}) {
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
+      my $html=&Apache::lonxml::xmlbegin();
+      my $encoding=&Apache::lonxml::fontsettings();
       my $bodytag=&Apache::loncommon::bodytag('Discussion Post Versions');
       $r->print(<<END);
-<html>
+$html
 <head>
+$encoding
 <title>Post Versions</title>
 <meta http-equiv="pragma" content="no-cache" />
 </head>
@@ -3060,9 +3088,12 @@ END
       &Apache::loncommon::content_type($r,'text/html');
       $r->send_http_header;
       my $logo=&Apache::loncommon::lonhttpdurl('/adm/lonIcons/lonlogos.gif');
+      my $html=&Apache::lonxml::xmlbegin();
+      my $encoding=&Apache::lonxml::fontsettings();
       $r->print (<<ENDREDIR);
-<html>
+$html
 <head>
+$encoding
 <title>New posts marked as read</title>
 <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
