--- loncom/interface/lonmsg.pm 2005/02/17 04:11:21 1.136
+++ loncom/interface/lonmsg.pm 2005/02/17 04:39:58 1.137
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.136 2005/02/17 04:11:21 albertel Exp $
+# $Id: lonmsg.pm,v 1.137 2005/02/17 04:39:58 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1847,7 +1847,9 @@ sub displayresource {
sub header {
my ($r,$title,$baseurl)=@_;
- $r->print('
Communication and Messages');
+ $r->print(&Apache::lonxml::xmlbegin().
+ ''.&Apache::lonxml::fontsettings().
+ 'Communication and Messages');
if ($baseurl) {
$r->print("");
}
@@ -1887,7 +1889,8 @@ sub storedcommentlisting {
my ($r)=@_;
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef,
'^'.&Apache::lonnet::escape(&Apache::lonnet::escape($ENV{'form.showcommentbaseurl'})));
- $r->print('');
+ $r->print(&Apache::lonxml::xmlbegin().''.
+ &Apache::lonxml::fontsettings().'');
if ((keys %msgs)[0]=~/^error\:/) {
$r->print(&mt('No stored comments yet.'));
} else {