loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.81, 2004/01/28 20:48:35	version 1.83, 2004/01/31 01:26:41
Line 396 sub user_crit_received {	Line 396 sub user_crit_received {
my %contents=&unpackagemsg($message{$msgid},1);	my %contents=&unpackagemsg($message{$msgid},1);
my $status='rec: '.($contents{'sendback'}?	my $status='rec: '.($contents{'sendback'}?
&user_normal_msg($contents{'sendername'},$contents{'senderdomain'},	&user_normal_msg($contents{'sendername'},$contents{'senderdomain'},
&mt('Receipt').': '.$ENV{'user.name'}.' at '.$ENV{'user.domain'},	&mt('Receipt').': '.$ENV{'user.name'}.' '.&mt('at').' '.$ENV{'user.domain'}.', '.$contents{'subject'},
&mt('User').' '.$ENV{'user.name'}.' '.&mt('at').' '.$ENV{'user.domain'}.	&mt('User').' '.$ENV{'user.name'}.' '.&mt('at').' '.$ENV{'user.domain'}.
' acknowledged receipt of message'."\n".' "'.	' acknowledged receipt of message'."\n".' "'.
$contents{'subject'}.'"'."\n".&mt('dated').' '.	$contents{'subject'}.'"'."\n".&mt('dated').' '.
Line 1213 $content{'sendername'},$content{'senderd	Line 1213 $content{'sendername'},$content{'senderd
}	}
}	}
if ($sendstatus=~/^(\s(?:ok\|con_delayed)\s)*$/) {	if ($sendstatus=~/^(\s(?:ok\|con_delayed)\s)*$/) {
	$r->print('<br /><font color="green">'.&mt('Completed.').'</font>');
if ($ENV{'form.displayedcrit'}) {	if ($ENV{'form.displayedcrit'}) {
&discrit($r);	&discrit($r);
} else {	} else {