loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2002/03/02 03:50:27	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';
}	}
Line 367 sub handler {	Line 372 sub handler {
my ($name, $value) = split(/=/,$_);	my ($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;	$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if (($name eq 'hide') \|\| ($name eq 'unhide')) {	if (($name eq 'hide') \|\| ($name eq 'unhide') \|\| ($name eq 'postdata')) {
unless ($ENV{'form.'.$name}) {	unless ($ENV{'form.'.$name}) {
$ENV{'form.'.$name}=$value;	$ENV{'form.'.$name}=$value;
}	}