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