| Mumia W. 2006-09-23, 9:57 pm |
| On 09/23/2006 01:21 PM, RICHARD FERNANDEZ wrote:
> Hi folks,
>
> I'm trying to create an HTML form that will refresh itself based on user
> input. In the POD for CGI it says that you can set the value of a named
> parameter by using something like:
>
> $query->param(-name=>'foo', -value=>'the value');
>
> But it doesn't say (or at least I didn't see) anything about how to
> redisplay the form with the new value in the textbox (or a different
> textbox for that matter).
>
> The sample script at the top of the doco (perldoc CGI) creates a blank
> form that takes some input, a name, a "combination", and a color and
> displays the user input in the bottom half of the page.
>
> I would like to edit the value entered into the "name" textbox and
> display my edited value in the same, or possibly a different textbox.
> I've tried a bunch of things including the call to param() above,
> without success.
>
> For example, if the user types "Wilma" into the textbox, the script
> should populate the target textbox with my edited value, say, "Betty".
>
> As always, Thanks in Advance for any help!
>
> richf
>
Did you test it? It is my impression that CGI.pm works this way normally:
use strict;
use warnings;
my %nmap = (
wilma => 'betty',
fred => 'barney',
bambam => 'pebbles',
);
use CGI qw/:standard/;
print
header,
start_html('Simple Script'),
h1('Simple Script'),
start_form,
"What's your name? ",textfield('name'),p,
"What's the combination?",
checkbox_group(-name=>'words',
-values=>['eenie','meenie','minie','moe'],
-defaults=>['eenie','moe']),p,
"What's your favorite color?",
popup_menu(-name=>'color',
-values=>['red','green','blue','chartreuse']),p,
submit,
end_form,
hr,"\n";
if (param) {
# Replace the parameter.
my $temp = param('name');
if ($nmap{$temp}) {
# param('name',$nmap{$temp}); # This also works.
param(-name => 'name', -value => $nmap{$temp});
}
print
"Your name is ",em(param('name')),p,
"The keywords are: ",em(join(", ",param('words'))),p,
"Your favorite color is ",em(param('color')),".\n";
}
print end_html;
|