loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.21, 2002/01/01 15:02:31	version 1.22, 2002/01/01 16:39:32
Line 40	Line 40
# 7/25 Gerd Kortemeyer	# 7/25 Gerd Kortemeyer
# 7/26 Guy Albertelli	# 7/26 Guy Albertelli
# 7/26,8/10,10/1,11/5,11/6,12/27,12/29 Gerd Kortemeyer	# 7/26,8/10,10/1,11/5,11/6,12/27,12/29 Gerd Kortemeyer
	# YEAR=2002
	# 1/1 Gerd Kortemeyer
	#

package Apache::lonfeedback;	package Apache::lonfeedback;

Line 284 sub send_msg {	Line 286 sub send_msg {
my $sendsomething=0;	my $sendsomething=0;
map {	map {
if ($_) {	if ($_) {
	my $declutter=&Apache::lonnet::declutter($feedurl);
unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),	unless (&Apache::lonmsg::user_normal_msg(split(/\:/,$_),
'Feedback '.$feedurl,$email,$citations) eq 'ok') {	'Feedback ['.$declutter.']',$email,$citations) eq 'ok') {
$status.='<br>Error sending message to '.$_.'<br>';	$status.='<br>Error sending message to '.$_.'<br>';
} else {	} else {
$sendsomething++;	$sendsomething++;