--- loncom/interface/lonfeedback.pm	2005/02/17 04:39:58	1.152
+++ loncom/interface/lonfeedback.pm	2005/03/23 22:14:01	1.156
@@ -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.156 2005/03/23 22:14:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -322,11 +322,11 @@ sub list_discussion {
     if ($visible) {
 # Print the discusssion
         if ($outputtarget eq 'tex') {
-            $discussion.='<tex>\vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}'.
+            $discussion.='<tex>{\tiny \vskip 0 mm\noindent\makebox[2 cm][b]{\hrulefill}'.
                          '\textbf{DISCUSSIONS}\makebox[2 cm][b]{\hrulefill}'.
                          '\vskip 0 mm\noindent\textbf{'.$lt{'cuse'}.'}:\vskip 0 mm'.
                          '\noindent\textbf{'.$lt{'disa'}.'}: \textit{'.$currdisp.'}\vskip 0 mm'.
-                         '\noindent\textbf{'.$lt{'npce'}.'}: \textit{'.$currmark.'}</tex>';
+                         '\noindent\textbf{'.$lt{'npce'}.'}: \textit{'.$currmark.'}}</tex>';
         } elsif ($outputtarget eq 'export') {
 # Create temporary directory if this is an export
             my $now = time;
@@ -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">
@@ -1956,6 +1950,9 @@ END
 sub print_showposters {
     my ($r,$symb,$previous,$feedurl,$sortposts) = @_;
 
+    &Apache::loncommon::content_type($r,'text/html');
+    $r->send_http_header;
+
     &Apache::lonenc::check_encrypt(\$symb);
     my $crs='/'.$ENV{'request.course.id'};
     if ($ENV{'request.course.sec'}) {
@@ -2005,11 +2002,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 +2116,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 +2204,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 +2235,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
@@ -2344,7 +2333,7 @@ sub clear_out_html {
       # <SUP>
       %html=(B=>1, I=>1, P=>1, A=>1, LI=>1, OL=>1, UL=>1, EM=>1,
 	     BR=>1, TT=>1, STRONG=>1, BLOCKQUOTE=>1, DIV=>1, IMG=>1,
-	     M=>1, SUB=>1, SUP=>1, SPAN=>1, 
+	     M=>1, ALGEBRA=>1, SUB=>1, SUP=>1, SPAN=>1, 
 	     H1=>1, H2=>1, H3=>1, H4=>1, H5=>1);
   }
 # Do the substitution of everything that is not explicitly allowed
@@ -2594,9 +2583,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 +2620,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 +2972,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 +3076,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" />
