--- loncom/interface/lonmsg.pm 2006/03/15 21:55:43 1.176
+++ loncom/interface/lonmsg.pm 2006/03/16 21:39:26 1.177
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging
#
-# $Id: lonmsg.pm,v 1.176 2006/03/15 21:55:43 albertel Exp $
+# $Id: lonmsg.pm,v 1.177 2006/03/16 21:39:26 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2082,17 +2082,15 @@ sub displayresource {
sub header {
my ($r,$title,$baseurl)=@_;
- $r->print(&Apache::lonxml::xmlbegin().
- '
'.&Apache::lonxml::fontsettings().
- 'Communication and Messages'.
- &Apache::lonhtmlcommon::htmlareaheaders());
+
+ my $extra = &Apache::loncommon::studentbrowser_javascript();
if ($baseurl) {
- $r->print("");
+ $extra .= "";
}
- $r->print(&Apache::loncommon::studentbrowser_javascript().''.
- &Apache::loncommon::bodytag('Communication and Messages'));
- $r->print(&Apache::lonhtmlcommon::breadcrumbs
- (undef,($title?$title:'Communication and Messages')));
+ $r->print(&Apache::loncommon::start_page('Communication and Messages',
+ $extra));
+ $r->print(&Apache::lonhtmlcommon::breadcrumbs
+ (undef,($title?$title:'Communication and Messages')));
}
@@ -2125,8 +2123,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(&Apache::lonxml::xmlbegin().''.
- &Apache::lonxml::fontsettings().'');
+ $r->print(&Apache::loncommon::start_page('Stored Comment Listing',undef,
+ {'onlybody' => 1}));
if ((keys %msgs)[0]=~/^error\:/) {
$r->print(&mt('No stored comments yet.'));
} else {
@@ -2475,7 +2473,7 @@ sub handler {
&Apache::loncommunicate::menu($r);
&disall($r,($folder?$folder:$dismode));
}
- $r->print(&Apache::loncommon::endbodytag().'');
+ $r->print(&Apache::loncommon::end_page());
return OK;
}
# ================================================= Main program, reset counter