version 1.159, 2005/11/29 22:41:30
|
version 1.160, 2005/11/29 22:55:10
|
Line 142 sub packagemsg {
|
Line 142 sub packagemsg {
|
split(/\:/,&Apache::lonnet::unescape($env{'form.replyid'})); |
split(/\:/,&Apache::lonnet::unescape($env{'form.replyid'})); |
$course_context = $origcid; |
$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)) { |
unless(defined($course_context)) { |
$course_context = $env{'request.course.id'}; |
$course_context = $env{'request.course.id'}; |
} |
} |