loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2001/07/26 20:19:12	version 1.13, 2001/07/26 23:26:56
Line 14	Line 14
# 2/10 Gerd Kortemeyer	# 2/10 Gerd Kortemeyer
# 2/13 Guy Albertelli	# 2/13 Guy Albertelli
# 7/25 Gerd Kortemeyer	# 7/25 Gerd Kortemeyer
	# 7/26 Guy Albertelli
	# 7/26 Gerd Kortemeyer


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

Line 258 sub send_msg {	Line 261 sub send_msg {
return ($status,$sendsomething);	return ($status,$sendsomething);
}	}

	sub adddiscuss {
	my ($symb,$email)=@_;
	my $status='';
	my %contrib=('message' => $email,
	'sendername' => $ENV{'user.name'},
	'senderdomain' => $ENV{'user.domain'});
	if (($symb) && ($email)) {
	$status='Adding to class discussion: '.
	&Apache::lonnet::store(\%contrib,$symb,$ENV{'request.course.id'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
	$ENV{'course.'.$ENV{'request.course.id'}.'.num'}).
	'<br>';
	}
	return $status;
	}

sub handler {	sub handler {
my $r = shift;	my $r = shift;
if ($r->header_only) {	if ($r->header_only) {
Line 320 sub handler {	Line 339 sub handler {
# Actually send mail	# Actually send mail
my ($status,$numsent)=&send_msg($feedurl,$email,$citations,%to);	my ($status,$numsent)=&send_msg($feedurl,$email,$citations,%to);

	# Discussion? Store that.

	if ($ENV{'form.discuss'}) {
	$typestyle.=&adddiscuss($symb,$message);
	}

# Receipt screen and redirect back to where came from	# Receipt screen and redirect back to where came from
&redirect_back($r,$feedurl,$typestyle,$numsent,$status);	&redirect_back($r,$feedurl,$typestyle,$numsent,$status);