--- 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; }