loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.77, 2003/12/31 02:33:27	version 1.80, 2004/01/15 18:25:36
Line 1024 sub handler {	Line 1024 sub handler {
if (!$ENV{'form.display'}) {	if (!$ENV{'form.display'}) {
$r->print('<html><head><title>EMail and Messaging</title>'.	$r->print('<html><head><title>EMail and Messaging</title>'.
&Apache::loncommon::studentbrowser_javascript().'</head>'.	&Apache::loncommon::studentbrowser_javascript().'</head>'.
&Apache::loncommon::bodytag('EMail and Messages'));	&Apache::loncommon::bodytag('EMail and Messages').
	&Apache::loncommon::help_open_faq(12).
	&Apache::loncommon::help_open_bug('Communication Tools'));
}	}
if ($ENV{'form.display'}) {	if ($ENV{'form.display'}) {
my $msgid=$ENV{'form.display'};	my $msgid=$ENV{'form.display'};
Line 1051 sub handler {	Line 1053 sub handler {
}	}
$r->print(&Apache::loncommon::studentbrowser_javascript().	$r->print(&Apache::loncommon::studentbrowser_javascript().
'</head>'.	'</head>'.
&Apache::loncommon::bodytag('EMail and Messages'));	&Apache::loncommon::bodytag('EMail and Messages').
	&Apache::loncommon::help_open_faq(12).
	&Apache::loncommon::help_open_bug('Communication Tools'));
$r->print('<b>'.&mt('Subject').':</b> '.$content{'subject'}.	$r->print('<b>'.&mt('Subject').':</b> '.$content{'subject'}.
'<br><b>'.&mt('From').':</b> '.	'<br><b>'.&mt('From').':</b> '.
&Apache::loncommon::aboutmewrapper(	&Apache::loncommon::aboutmewrapper(