loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.136, 2005/02/17 04:11:21	version 1.137, 2005/02/17 04:39:58
Line 1847 sub displayresource {	Line 1847 sub displayresource {

sub header {	sub header {
my ($r,$title,$baseurl)=@_;	my ($r,$title,$baseurl)=@_;
$r->print('<html><head><title>Communication and Messages</title>');	$r->print(&Apache::lonxml::xmlbegin().
	'<head>'.&Apache::lonxml::fontsettings().
	'<title>Communication and Messages</title>');
if ($baseurl) {	if ($baseurl) {
$r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />");	$r->print("<base href=\"http://$ENV{'SERVER_NAME'}/$baseurl\" />");
}	}
Line 1887 sub storedcommentlisting {	Line 1889 sub storedcommentlisting {
my ($r)=@_;	my ($r)=@_;
my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef,	my %msgs=&Apache::lonnet::dump('nohist_stored_comments',undef,undef,
'^'.&Apache::lonnet::escape(&Apache::lonnet::escape($ENV{'form.showcommentbaseurl'})));	'^'.&Apache::lonnet::escape(&Apache::lonnet::escape($ENV{'form.showcommentbaseurl'})));
$r->print('<html><body>');	$r->print(&Apache::lonxml::xmlbegin().'<head>'.
	&Apache::lonxml::fontsettings().'</head><body>');
if ((keys %msgs)[0]=~/^error\:/) {	if ((keys %msgs)[0]=~/^error\:/) {
$r->print(&mt('No stored comments yet.'));	$r->print(&mt('No stored comments yet.'));
} else {	} else {