loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.33, 2002/10/03 15:04:29	version 1.34, 2002/10/11 20:52:13
Line 294 sub send_msg {	Line 294 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) eq 'ok') {	'Feedback ['.$declutter.']',$email,$citations)=~/ok/) {
$status.='<br>Error sending message to '.$_.'<br>';	$status.='<br>Error sending message to '.$_.'<br>';
} else {	} else {
$sendsomething++;	$sendsomething++;