loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.32, 2002/05/07 15:24:34	version 1.34, 2002/06/26 20:41:55
Line 314 sub discrit {	Line 314 sub discrit {
$content{'message'}=~s/\n/\<br\>/g;	$content{'message'}=~s/\n/\<br\>/g;
$result.='<hr>From: <b>'.$content{'sendername'}.'@'.	$result.='<hr>From: <b>'.$content{'sendername'}.'@'.
$content{'senderdomain'}.'</b> ('.$content{'time'}.	$content{'senderdomain'}.'</b> ('.$content{'time'}.
')<br><blockquote>'.$content{'message'}.'</blockquote>'.	')<br>Subject: '.$content{'subject'}.
	'<br><blockquote>'.$content{'message'}.'</blockquote>'.
'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.	'<input type=submit name="rec_'.$_.'" value="Confirm Receipt">'.
'<input type=submit name="reprec_'.$_.'" '.	'<input type=submit name="reprec_'.$_.'" '.
'value="Confirm Receipt and Reply">';	'value="Confirm Receipt and Reply">';
Line 396 ENDDISHEADER	Line 397 ENDDISHEADER
$ENV{'user.home'}))) {	$ENV{'user.home'}))) {
my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=	my ($sendtime,$shortsubj,$fromname,$fromdomain,$status)=
&Apache::lonmsg::unpackmsgid($_);	&Apache::lonmsg::unpackmsgid($_);
unless ($status eq 'deleted') {	unless (($status eq 'deleted') \|\| ($sendtime=~/error/)) {
if ($status eq 'new') {	if ($status eq 'new') {
$r->print('<tr bgcolor="#FFBB77">');	$r->print('<tr bgcolor="#FFBB77">');
} elsif ($status eq 'read') {	} elsif ($status eq 'read') {