loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

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'};
}	}