loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.25, 2002/03/26 16:15:34	version 1.26, 2002/04/03 18:47:39
Line 323 sub adddiscuss {	Line 323 sub adddiscuss {

my %contrib=('message' => $email,	my %contrib=('message' => $email,
'sendername' => $ENV{'user.name'},	'sendername' => $ENV{'user.name'},
'senderdomain' => $ENV{'user.domain'});	'senderdomain' => $ENV{'user.domain'},
	'screenname' => $ENV{'environment.screenname'},
	'plainname' => $ENV{'environment.firstname'}.' '.
	$ENV{'environment.middlename'}.' '.
	$ENV{'environment.lastname'}.' '.
	$ENV{'enrironment.generation'});
if ($anon) {	if ($anon) {
$contrib{'anonymous'}='true';	$contrib{'anonymous'}='true';
}	}