--- loncom/interface/lonfeedback.pm	2002/03/02 03:50:27	1.24
+++ loncom/interface/lonfeedback.pm	2002/04/03 18:47:39	1.26
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.24 2002/03/02 03:50:27 harris41 Exp $
+# $Id: lonfeedback.pm,v 1.26 2002/04/03 18:47:39 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -323,7 +323,12 @@ sub adddiscuss {
 
     my %contrib=('message'      => $email,
                  '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) {
 	$contrib{'anonymous'}='true';
     }
@@ -367,7 +372,7 @@ sub handler {
        my ($name, $value) = split(/=/,$_);
        $value =~ tr/+/ /;
        $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}) {
               $ENV{'form.'.$name}=$value;
 	   }