loncom/interface/lonmsgdisplay.pm - diff

Return to lonmsgdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.76, 2007/05/03 16:55:08	version 1.77, 2007/05/05 02:50:27
Line 2645 sub handler {	Line 2645 sub handler {
my $replying = 0;	my $replying = 0;
foreach my $envkey (keys(%env)) {	foreach my $envkey (keys(%env)) {
if ($envkey=~/^form\.(rep)?rec\_(.*)$/) {	if ($envkey=~/^form\.(rep)?rec\_(.*)$/) {
	my $repchk = $1;
my $msgid = $2;	my $msgid = $2;
$r->print('<b>'.&mt('Confirming Receipt').':</b> ');	$r->print('<b>'.&mt('Confirming Receipt').':</b> ');
my $result = &Apache::lonmsg::user_crit_received($msgid);	my $result = &Apache::lonmsg::user_crit_received($msgid);
Line 2652 sub handler {	Line 2653 sub handler {
&statuschange($msgid,'read');	&statuschange($msgid,'read');
}	}
$r->print($result.'<br />');	$r->print($result.'<br />');
if ($1 eq 'rep') {	if ($repchk eq 'rep') {
&compout($r,'','','',$msgid);	&compout($r,'','','',$msgid);
$replying = 1;	$replying = 1;
}	}