loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.40, 2003/02/17 17:09:27	version 1.41, 2003/02/18 15:47:40
Line 342 sub send_msg {	Line 342 sub send_msg {
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)=~/ok/) {	'Feedback ['.$declutter.']',$email,$citations,$feedurl)=~/ok/) {
$status.='<br>Error sending message to '.$_.'<br>';	$status.='<br>Error sending message to '.$_.'<br>';
} else {	} else {
$sendsomething++;	$sendsomething++;