|
version 1.24, 2002/03/02 03:50:27
|
version 1.27, 2002/05/29 18:26:22
|
|
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 363 sub handler {
|
Line 368 sub handler {
|
| |
|
| # --------------------------- Get query string for limited number of parameters |
# --------------------------- Get query string for limited number of parameters |
| |
|
| foreach (split(/&/,$ENV{'QUERY_STRING'})) { |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
| my ($name, $value) = split(/=/,$_); |
['hide','unhide','postdata']); |
| $value =~ tr/+/ /; |
|
| $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
|
| if (($name eq 'hide') || ($name eq 'unhide')) { |
|
| unless ($ENV{'form.'.$name}) { |
|
| $ENV{'form.'.$name}=$value; |
|
| } |
|
| } |
|
| } |
|
| |
|
| if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
if (($ENV{'form.hide'}) || ($ENV{'form.unhide'})) { |
| # ----------------------------------------------------------------- Hide/unhide |
# ----------------------------------------------------------------- Hide/unhide |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonfeedback.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface