[LON-CAPA-cvs] cvs: loncom /interface lonmsgdisplay.pm

raeburn lon-capa-cvs-allow@mail.lon-capa.org
Sat, 05 May 2007 02:50:28 -0000


raeburn		Fri May  4 22:50:28 2007 EDT

  Modified files:              
    /loncom/interface	lonmsgdisplay.pm 
  Log:
  Match of (rep)? was being ignored because of reset of $1.   
  
  
Index: loncom/interface/lonmsgdisplay.pm
diff -u loncom/interface/lonmsgdisplay.pm:1.76 loncom/interface/lonmsgdisplay.pm:1.77
--- loncom/interface/lonmsgdisplay.pm:1.76	Thu May  3 12:55:08 2007
+++ loncom/interface/lonmsgdisplay.pm	Fri May  4 22:50:27 2007
@@ -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 @@
 	my $replying = 0;
 	foreach my $envkey (keys(%env)) {
 	    if ($envkey=~/^form\.(rep)?rec\_(.*)$/) {
+                my $repchk = $1;
        		my $msgid = $2;
 		$r->print('<b>'.&mt('Confirming Receipt').':</b> ');
 		my $result = &Apache::lonmsg::user_crit_received($msgid);
@@ -2652,7 +2653,7 @@
                     &statuschange($msgid,'read');
                 }
                 $r->print($result.'<br />');
-                if ($1 eq 'rep') {
+                if ($repchk eq 'rep') {
 		    &compout($r,'','','',$msgid);
 		    $replying = 1;
                 }