--- loncom/interface/lonmsgdisplay.pm 2007/05/03 16:55:08 1.76
+++ 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.76 2007/05/03 16:55:08 albertel Exp $
+# $Id: lonmsgdisplay.pm,v 1.77 2007/05/05 02:50:27 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2645,6 +2645,7 @@ 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);
@@ -2652,7 +2653,7 @@ sub handler {
&statuschange($msgid,'read');
}
$r->print($result.'
');
- if ($1 eq 'rep') {
+ if ($repchk eq 'rep') {
&compout($r,'','','',$msgid);
$replying = 1;
}