| … | |
… | |
| 756 | |
756 | |
| 757 | # reset all the parameters dealing with set/problem/header information |
757 | # reset all the parameters dealing with set/problem/header information |
| 758 | # if the current naming scheme is changed/broken, this could reek havoc |
758 | # if the current naming scheme is changed/broken, this could reek havoc |
| 759 | # on all kinds of things |
759 | # on all kinds of things |
| 760 | foreach my $param ($r->param) { |
760 | foreach my $param ($r->param) { |
| 761 | $r->param($param, "") if $param =~ /^(set|problem|header)\./; |
761 | $r->param($param, "") if $param =~ /^(set|problem|header)\./ && $param !~ /displaymode/; |
| 762 | } |
|
|
| 763 | } |
762 | } |
| 764 | |
763 | } |
| 765 | } |
764 | } |
| 766 | |
765 | |
| 767 | # helper method for debugging |
766 | # helper method for debugging |
| 768 | sub definedness ($) { |
767 | sub definedness ($) { |
| 769 | my ($variable) = @_; |
768 | my ($variable) = @_; |
Parent Directory
| 
Revision Log
| 
Patch