--- loncom/interface/lonfeedback.pm 2002/03/26 16:15:34 1.25 +++ loncom/interface/lonfeedback.pm 2002/07/24 19:57:38 1.28 @@ -1,7 +1,7 @@ # The LearningOnline Network # Feedback # -# $Id: lonfeedback.pm,v 1.25 2002/03/26 16:15:34 www Exp $ +# $Id: lonfeedback.pm,v 1.28 2002/07/24 19:57:38 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -102,7 +102,7 @@ sub mail_screen { -

Feedback

+

Resource Feedback and Discussion

$feedurl

@@ -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'; } @@ -363,16 +368,8 @@ sub handler { # --------------------------- Get query string for limited number of parameters - foreach (split(/&/,$ENV{'QUERY_STRING'})) { - 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') || ($name eq 'postdata')) { - unless ($ENV{'form.'.$name}) { - $ENV{'form.'.$name}=$value; - } - } - } + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['hide','unhide','postdata']); if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { # ----------------------------------------------------------------- Hide/unhide