--- loncom/interface/lonfeedback.pm	2009/11/21 22:36:23	1.279
+++ loncom/interface/lonfeedback.pm	2009/12/07 15:46:16	1.281
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.279 2009/11/21 22:36:23 www Exp $
+# $Id: lonfeedback.pm,v 1.281 2009/12/07 15:46:16 bisitz Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -569,7 +569,7 @@ imscp_v1p1.xsd http://www.imsglobal.org/
                  <table border="0" cellpadding="0" cellspacing="4">
                   <tr>
                    <td>
-                    <font size="-1"><b>$lt{'cuse'}</b>:</td>
+                    <font size="-1"><b>$lt{'cuse'}</b>:</font></td>
                    <td>&nbsp;</td>
                    <td><font size="-1">
 END
@@ -591,7 +591,7 @@ END
                    </font></td>
                    <td>&nbsp;</td>
                    <td align="left">
-                    <font size="-1"><b><a href="$chglink">$lt{'chgt'}</a>?</font></b>
+                    <font size="-1"><b><a href="$chglink">$lt{'chgt'}</a>?</b></font>
                    </td>
                   </tr>
                  </table>
@@ -815,7 +815,7 @@ sub action_links_bar {
                            &mt('Preferences on what is marked as NEW').
                            '</a><br /><a href="/adm/feedback?markread=1&amp;symb='.$escsymb;
             $discussion .= &group_args($group);
-            $discussion .= '">'.&mt('Mark NEW posts no longer new').'</a>';
+            $discussion .= '">'.&mt('Mark NEW posts no longer new').'</a></td>';
         } else {
             $discussion .= '<td>&nbsp;</td>';
         }
@@ -1255,7 +1255,7 @@ sub build_posting_display {
                             }
                             $$discussionitems[$idx] .= '<td align="left">&nbsp;&nbsp;'.
                                 '<b>'.$subject.'</b>&nbsp;&nbsp;'.
-                                $sender.'</b> '.$vgrlink.' ('.
+                                '<b>'.$sender.'</b> '.$vgrlink.' ('.
                                 &Apache::lonlocal::locallocaltime($posttime).')</td>';
                             if ($$dischash{$toggkey}) {
                                 $$discussionitems[$idx].='<td align="right">&nbsp;&nbsp;'.
@@ -2136,17 +2136,17 @@ $start_page
 <br /><br />
 <table border="0">
  <tr>
-  <td><b>$lt{'soor'}</b></td>
-  <td>&nbsp;</td>
-  <td><b>$lt{'sprs'}</b></td>
-  <td>&nbsp;</td>
-  <td><b>$lt{'spur'}</b></td>
-  <td>&nbsp;</td>
-  <td><b>$lt{'spse'}</b></td>
-  <td>&nbsp;</td>
-  <td><b>$lt{'spgr'}</b></td>
-  <td>&nbsp;</td>
-  <td><b>$lt{'psub'}</b></td>
+  <th>$lt{'soor'}</th>
+  <th>&nbsp;</th>
+  <th>$lt{'sprs'}</th>
+  <th>&nbsp;</th>
+  <th>$lt{'spur'}</th>
+  <th>&nbsp;</th>
+  <th>$lt{'spse'}</th>
+  <th>&nbsp;</th>
+  <th>$lt{'spgr'}</th>
+  <th>&nbsp;</th>
+  <th>$lt{'psub'}</th>
  </tr>
  <tr>
   <td align="center" valign="top">
@@ -2949,7 +2949,19 @@ sub show_preview {
     );
 }
 
-
+sub contains_block_html {
+	my ($message)=@_;
+	return ($message =~ m/
+		<(br|h1|h2|h3|h4|h5|h6|p|ol|ul|table|pre|address|blockquote|center|div) 
+		  [\s]*
+		 ([\w]+\=['"][\w]+['"])*
+		  [\s]*
+		(
+		  [\s]*[\/]>|
+		  >.*<\/\1[\s]*>
+		)/x );
+}
+	
 sub newline_to_br {
     my ($message)=@_;
     my $newmessage;
@@ -3041,7 +3053,7 @@ $toolarge
  <table class="LC_data_table">
   <tr>
    <td colspan="2">
-    <b>Subject:</b> $subject</b><br /><br />
+    <b>Subject:</b> <b>$subject</b><br /><br />
 END
     if ($idx) {
         if ($attachmenturls) {