--- loncom/interface/lonfeedback.pm	2005/02/17 04:39:58	1.152
+++ loncom/interface/lonfeedback.pm	2005/02/17 08:29:42	1.153
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.152 2005/02/17 04:39:58 albertel Exp $
+# $Id: lonfeedback.pm,v 1.153 2005/02/17 08:29:42 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1437,11 +1437,9 @@ END
   my $htmlheader=&Apache::lonhtmlcommon::htmlareaheaders();
   my $send=&mt('Send');
   my $html=&Apache::lonxml::xmlbegin();
-  my $encoding=&Apache::lonxml::fontsettings();
   $r->print(<<END);
 $html
 <head>
-$encoding
 <title>The LearningOnline Network with CAPA</title>
 <meta http-equiv="pragma" content="no-cache"></meta>
 $htmlheader
@@ -1665,11 +1663,9 @@ sub print_display_options {
         $disctogg = 'toggon';
     }
     my $html=&Apache::lonxml::xmlbegin();
-    my $encoding=&Apache::lonxml::fontsettings();
     $r->print(<<END);
 $html
 <head>
-$encoding
 <title>$lt{'dido'}</title>
 <meta http-equiv="pragma" content="no-cache" />
 <script>
@@ -1850,11 +1846,9 @@ sub print_sortfilter_options {
     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
 <head>
-$encoding
 <title>$lt{'diso'}</title>
 <meta http-equiv="pragma" content="no-cache" />
 <script type="text/javascript">
@@ -2005,11 +1999,9 @@ sub print_showposters {
         }
     }
     my $html=&Apache::lonxml::xmlbegin();
-    my $encoding=&Apache::lonxml::fontsettings();
     $r->print(<<END);
 $html
 <head>
-$encoding
 <title>$lt{'diso'}</title>
 <meta http-equiv="pragma" content="no-cache" />
 </head>
@@ -2121,11 +2113,9 @@ sub fail_redirect {
   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>
-$encoding
 <title>Feedback not sent</title>
 <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
@@ -2211,11 +2201,9 @@ 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
 <head>
-$encoding
 <title>Feedback sent</title>
 <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
@@ -2244,11 +2232,9 @@ sub no_redirect_back {
   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>
-$encoding
 <title>Feedback not sent</title>
 <meta http-equiv="pragma" content="no-cache" />
 ENDNOREDIR
@@ -2594,9 +2580,11 @@ sub show_preview {
     my $subject=&clear_out_html($ENV{'form.subject'});
     $subject=~s/\n/\<br \/\>/g;
     $subject=&Apache::lontexconvert::msgtexconverted($subject);
-    $r->print('<table border="2"><tr><td>'.
-       '<b>Subject:</b> '.$subject.'<br /><br />'.
-       $message.'</td></tr></table>');
+    my $html=&Apache::lonxml::xmlbegin();
+    $r->print($html.'<head>'.
+	      '</head><body><table border="2"><tr><td>'.
+	      '<b>Subject:</b> '.$subject.'<br /><br />'.
+	      $message.'</td></tr></table></body></html>');
 }
 
 sub generate_preview_button {
@@ -2629,11 +2617,9 @@ sub modify_attachments {
     }
     &Apache::lonenc::check_encrypt(\$symb);
     my $html=&Apache::lonxml::xmlbegin();
-    my $encoding=&Apache::lonxml::fontsettings();
     $r->print(<<END);
 $html
 <head>
-$encoding
 <title>Managing Attachments</title>
 <script>
  function setAction () {
@@ -2983,12 +2969,10 @@ sub handler {
       &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
 <head>
-$encoding
 <title>Post Versions</title>
 <meta http-equiv="pragma" content="no-cache" />
 </head>
@@ -3089,11 +3073,9 @@ END
       $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
 <head>
-$encoding
 <title>New posts marked as read</title>
 <meta http-equiv="pragma" content="no-cache" />
 <meta HTTP-EQUIV="Refresh" CONTENT="2; url=$feedurl" />
