loncom/interface/lonmsg.pm - diff

Return to lonmsg.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.17, 2001/08/09 14:57:33	version 1.18, 2001/08/09 15:29:37
Line 508 sub handler {	Line 508 sub handler {
$ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".	$ENV{'form.message'}.="\n\n-- Forwarded message --\n\n".
$content{'message'};	$content{'message'};
}	}
	my %toaddr=();
	undef %toaddr;
	if ($ENV{'form.sendmode'} eq 'group') {
	map {
	if ($_=~/^form\.send\_to\_(.+)$/) {
	$toaddr{$1}=1;
	}
	} keys %ENV;
	} else {
	$toaddr{$ENV{'form.recuname'}.':'.$ENV{'form.recdomain'}}=1;
	}
	map {
	my ($recuname,$recdomain)=split(/\:/,$_);
if (($ENV{'form.critmsg'}) &&	if (($ENV{'form.critmsg'}) &&
(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {	(&Apache::lonnet::allowed('srm',$ENV{'request.course.id'}))) {
$r->print('Sending critical: '.	$r->print('Sending critical: '.
&user_crit_msg($ENV{'form.recuname'},	&user_crit_msg($recuname,$recdomain,
$ENV{'form.recdomain'},
$ENV{'form.subject'},	$ENV{'form.subject'},
$ENV{'form.message'},	$ENV{'form.message'},
$content{'citation'}));	$content{'citation'}));
} else {	} else {
$r->print('Sending: '.&user_normal_msg($ENV{'form.recuname'},	$r->print('Sending: '.&user_normal_msg($recuname,$recdomain,
$ENV{'form.recdomain'},
$ENV{'form.subject'},	$ENV{'form.subject'},
$ENV{'form.message'},	$ENV{'form.message'},
$content{'citation'}));	$content{'citation'}));
}	}
	$r->print('<br>');
	} keys %toaddr;
if ($ENV{'form.displayedcrit'}) {	if ($ENV{'form.displayedcrit'}) {
&discrit($r);	&discrit($r);
} else {	} else {