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

[raeburn]

raeburn		Tue Nov 29 17:55:11 2005 EDT

  Modified files:              
    /loncom/interface	lonmsg.pm 
  Log:
  Acknowledgement of receipt e-mails now receive course context appropriate for course from which original critical message was sent.
  
  
Index: loncom/interface/lonmsg.pm
diff -u loncom/interface/lonmsg.pm:1.159 loncom/interface/lonmsg.pm:1.160
--- loncom/interface/lonmsg.pm:1.159	Tue Nov 29 17:41:30 2005
+++ loncom/interface/lonmsg.pm	Tue Nov 29 17:55:10 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines for messaging
 #
-# $Id: lonmsg.pm,v 1.159 2005/11/29 22:41:30 raeburn Exp $
+# $Id: lonmsg.pm,v 1.160 2005/11/29 22:55:10 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -142,6 +142,14 @@
                    split(/\:/,&Apache::lonnet::unescape($env{'form.replyid'}));
         $course_context = $origcid;
     }
+    foreach my $key (keys(%env)) {
+        if ($key=~/^form\.(rep)?rec\_(.*)$/) {
+            my ($sendtime,$shortsubj,$fromname,$fromdomain,$count,$origcid) =
+                                    split(/\:/,&Apache::lonnet::unescape($2));
+            $course_context = $origcid;
+            last;
+        }
+    }
     unless(defined($course_context)) {
         $course_context = $env{'request.course.id'};
     }