Thank you very much. Very helpful!
wolf blaum wrote: > > On Sunday 29 February 2004 17:20, [EMAIL PROTECTED] generously enriched > virtual reality by making up this one: > > Hi > > > I have a script that processes a form input. What I want to do is this: > > I assume you are talking about a html form. > > > I have form elements: > > > > -radio_group1 > > -radio_group2 > > > > -textfield: takes 6 digits depending on the user' selection. > > > > I want the textfield to be populated with 000000 if the user select > > radio_group2. > > > > Any idea on how to do that and thanks in advance! > > ---snip--- > > #! /usr/bin/perl > use strict; > use warnings; > use CGI qw(:standard); > > my $p = new CGI; > my $myself =$p->url; > my $text; > > if ($p->param){ > if ($p->param('radio') eq 'take') {$text=$p->param('textfield');} > else {$text='000000';} > print > $p->start_html('Results'), > $p->h1('Results'), > $p->p("$text"), > $p->end_html; > } > else { > print > $p->start_html('Form'), > $p->start_form(), #defaults are this script, post, x-www-urlencoded > $p->textfield(-name=>'textfield'), > $p->radio_group(-name=>'radio', -values=>['take','delete']), > $p->submit, > $p->end_form, > $p->end_html; > } > > ---snap--- > > prints a form with two radiobuttons (in the same group, 'radio') if the script > s caled without parameters. > If parameters are returned, $text is set to the content of your texfield if > radio=take, otherwise $txt is se to '000000'. > > Read the CPAN docu for the CGI module if you need help with it - tons of > examples. > > Enjoy, Wolf > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > <http://learn.perl.org/> <http://learn.perl.org/first-response>
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>