--- loncom/interface/lonmsg.pm	2005/02/17 04:39:58	1.137
+++ loncom/interface/lonmsg.pm	2005/03/01 03:28:14	1.139
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.137 2005/02/17 04:39:58 albertel Exp $
+# $Id: lonmsg.pm,v 1.139 2005/03/01 03:28:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -639,9 +639,9 @@ sub discourse {
     my $r=shift;
     my $classlist = &Apache::loncoursedata::get_classlist();
     my $now=time;
-    my %lt=&Apache::lonlocal::texthash('cfa' => 'Check for All',
-            'cfs' => 'Check for Section/Group',
-            'cfn' => 'Check for None');
+    my %lt=&Apache::lonlocal::texthash('cfa' => 'Check All',
+            'cfs' => 'Check Section/Group',
+            'cfn' => 'Uncheck All');
     $r->print(<<ENDDISHEADER);
 <input type="hidden" name="sendmode" value="group" />
 <script>
@@ -877,7 +877,7 @@ ENDLINK
             }
             $r->print("</td></tr>");
         }
-        $r->print('</table></body></html>');
+        $r->print('</table>'.&Apache::loncommon::endbodytag().'</html>');
     } elsif ($numblocked == 0) {
         $r->print("<h3>".&mt('You have no unread messages')."</h3>");
     }
@@ -1408,12 +1408,13 @@ sub examblock {
         $r->print($lt{'ncbc'}.'<br /><br />');
     }
     &display_addblocker_table($r,$parmcount,\%ltext);
+    my $endbody=&Apache::loncommon::endbodytag();
     $r->print(<<"END");
 <br />
 <input type="hidden" name="blocktotal" value="$blockcount" />
 <input type ="submit" value="Save Changes" />
 </form>
-</body>
+$endbody
 </html>
 END
     return;
@@ -2161,7 +2162,7 @@ sub handler {
 	&Apache::loncommunicate::menu($r);
 	&disall($r,$folder);
     }
-    $r->print('</body></html>');
+    $r->print(&Apache::loncommon::endbodytag().'</html>');
     return OK;
 }
 # ================================================= Main program, reset counter