| Subject: | nosticky is sticky |
The nosticky flag (use CGI qw/-nosticky/) doesn't do what it is supposed
to do (or at least that is what I think).
First test:
#!/usr/bin/perl
use CGI qw/:standard/;
print header;
print p($CGI::VERSION);
print param("text") if param("text");
print start_html;
print start_form;
print textfield(-name=>"text", -value=>"value");
print submit;
print end_form;
print end_html;
use "horse" in the text field, and notice it sticks.
Then, try
#!/usr/bin/perl
use CGI qw/-nosticky :standard/;
print header;
print p($CGI::VERSION);
print param("text") if param("text");
print start_html;
print start_form;
print textfield(-name=>"text", -value=>"value");
print submit;
print end_form;
print end_html;
And check that it still sticks.
Use the -override into the textfield to show what -nosticky should do
(or what I think it should do)
#!/usr/bin/perl
use CGI qw/:standard/;
print header;
print p($CGI::VERSION);
print param("text") if param("text");
print start_html;
print start_form;
print textfield(-override=>1, -name=>"text", -value=>"value");
print submit;
print end_form;
print end_html;
Thanks :)