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.161, 2005/12/05 22:16:52
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'};
}	}
Line 1181 sub compout {	Line 1189 sub compout {
&mt('and return receipt') . '</label>' . $crithelp .	&mt('and return receipt') . '</label>' . $crithelp .
'</p><p><label><input type="checkbox" name="permanent" /> '.	'</p><p><label><input type="checkbox" name="permanent" /> '.
&mt('Send copy to permanent email address (if known)').'</label></p>'.	&mt('Send copy to permanent email address (if known)').'</label></p>'.
'<p><label><input type="checkbox" name="rsspost" /> '.	'<!-- <p><label><input type="checkbox" name="rsspost" /> '.
&mt('Include in course RSS newsfeed').'</label></p>'; }	&mt('Include in course RSS newsfeed').'</label></p>-->'; }
my %message;	my %message;
my %content;	my %content;
my $defdom=$env{'user.domain'};	my $defdom=$env{'user.domain'};