--- loncom/interface/lonmsgdisplay.pm 2007/05/03 12:13:35 1.75
+++ loncom/interface/lonmsgdisplay.pm 2007/05/05 02:50:27 1.77
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Routines for messaging display
#
-# $Id: lonmsgdisplay.pm,v 1.75 2007/05/03 12:13:35 raeburn Exp $
+# $Id: lonmsgdisplay.pm,v 1.77 2007/05/05 02:50:27 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2645,14 +2645,15 @@ sub handler {
my $replying = 0;
foreach my $envkey (keys(%env)) {
if ($envkey=~/^form\.(rep)?rec\_(.*)$/) {
+ my $repchk = $1;
my $msgid = $2;
$r->print(''.&mt('Confirming Receipt').': ');
my $result = &Apache::lonmsg::user_crit_received($msgid);
if ($result =~ /trans:\s+ok/) {
&statuschange($msgid,'read');
}
- $r->print($result.'
');
- if ($1 eq 'rep') {
+ $r->print($result.'
');
+ if ($repchk eq 'rep') {
&compout($r,'','','',$msgid);
$replying = 1;
}