[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: loncom /interface lonmsg.pm
From: raeburn <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2005-11-29 22:55:11
Message-ID: cvsraeburn1133304911 () cvsserver
[Download RAW message or body]
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'};
}
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic