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

[albertel]

albertel		Thu Sep  9 04:00:13 2004 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  - replied status was no longer being set (BUG#3425)
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.104 loncom/interface/lonmsg.pm:1.105
--- loncom/interface/lonmsg.pm:1.104	Thu Jul 15 17:08:45 2004
+++ loncom/interface/lonmsg.pm	Thu Sep  9 04:00:12 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.104 2004/07/15 21:08:45 matthew Exp $
+# $Id: lonmsg.pm,v 1.105 2004/09/09 08:00:12 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -861,8 +861,8 @@
     if ($replying) {
 	%message=&Apache::lonnet::get('nohist_email',[$replying]);
 	%content=&unpackagemsg($message{$replying});
-	$dispcrit.='<input type="hidden" name="forwid" value="'.
-	    $forwarding.'" />';
+	$dispcrit.='<input type="hidden" name="replyid" value="'.
+	    $replying.'" />';
 	$func=&mt('Replying to');
 	
 	$dissub=&mt('Reply').': '.$content{'subject'};       
@@ -1654,6 +1654,12 @@
 		$ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".
 		    $content{'message'};
 	    }
+	    if ($ENV{'form.replyid'}) {
+		my $msgid=$ENV{'form.replyid'};
+		my %message=&Apache::lonnet::get('nohist_email',[$msgid]);
+		%content=&unpackagemsg($message{$msgid},1);
+		&statuschange($msgid,'replied');
+	    }
 	    my %toaddr=();
 	    undef %toaddr;
 	    if ($ENV{'form.sendmode'} eq 'group') {