| 745 | | my $query_string; |
|---|
| 746 | | if ($ENV{MOD_PERL}) { |
|---|
| 747 | | $query_string = $q->r->args; |
|---|
| 748 | | } else { |
|---|
| 749 | | $query_string = $ENV{'QUERY_STRING'} if defined $ENV{'QUERY_STRING'}; |
|---|
| 750 | | $query_string ||= $ENV{'REDIRECT_QUERY_STRING'} if defined $ENV{'REDIRECT_QUERY_STRING'}; |
|---|
| 751 | | } |
|---|
| 752 | | if (defined($query_string) and $query_string ne '') { |
|---|
| 753 | | $q->parse_params($query_string); |
|---|
| | 745 | if (! $ENV{MOD_PERL}) { |
|---|
| | 746 | my $query_string = $ENV{'QUERY_STRING'} |
|---|
| | 747 | if defined $ENV{'QUERY_STRING'}; |
|---|
| | 748 | $query_string ||= $ENV{'REDIRECT_QUERY_STRING'} |
|---|
| | 749 | if defined $ENV{'REDIRECT_QUERY_STRING'}; |
|---|
| | 750 | if (defined($query_string) and $query_string ne '') { |
|---|
| | 751 | $q->parse_params($query_string); |
|---|
| | 752 | } |
|---|
