loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.180, 2006/02/09 22:11:54	version 1.181, 2006/03/02 18:54:49
Line 2478 sub feedback_available {	Line 2478 sub feedback_available {
}	}

sub send_msg {	sub send_msg {
my ($feedurl,$email,$citations,$attachmenturl,%to)=@_;	my ($title,$feedurl,$email,$citations,$attachmenturl,%to)=@_;
my $status='';	my $status='';
my $sendsomething=0;	my $sendsomething=0;
	if ($title=~/^Error/) { $title=&mt('Feedback').': '.$title; }
	unless ($title=~/\w/) { $title=&mt('Feedback'); }
foreach (keys %to) {	foreach (keys %to) {
if ($_) {	if ($_) {
my $declutter=&Apache::lonnet::declutter($feedurl);	my $declutter=&Apache::lonnet::declutter($feedurl);
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),	unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),
'Feedback ['.$declutter.']',$email,$citations,$feedurl,	$title.' ['.$declutter.']',$email,$citations,$feedurl,
$attachmenturl)=~/ok/) {	$attachmenturl)=~/ok/) {
$status.='<br />'.&mt('Error sending message to').' '.$_.'<br />';	$status.='<br />'.&mt('Error sending message to').' '.$_.'<br />';
} else {	} else {
Line 3424 ENDREDIR	Line 3426 ENDREDIR
my ($typestyle,%to) = &decide_receiver($feedurl);	my ($typestyle,%to) = &decide_receiver($feedurl);

# Actually send mail	# Actually send mail
my ($status,$numsent)=&send_msg($feedurl,$email,$citations,	my ($status,$numsent)=&send_msg(&clear_out_html($env{'form.subject'}),$feedurl,$email,$citations,
$attachmenturl,%to);	$attachmenturl,%to);

# Discussion? Store that.	# Discussion? Store that.