Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: CGI.pm multiple forms

by reclaw (Curate)
on Nov 23, 2002 at 07:05 UTC ( #215361=note: print w/ replies, xml ) Need Help??


in reply to CGI.pm multiple forms

I wrote this while showing a neighbor kid the same thing. It's odd, but it might help you get started.

#!perl -wT use strict; use CGI; my $query = CGI->new; my @fields = qw(Name Age Sex); print $query->header, $query->start_html('Multi page form'), $query->start_form; print_form(); print $query->end_form, $query->end_html; sub print_form { my $count = @fields; my $results; foreach my $field (@fields) { if ($query->param($field)) { print $query->hidden(-name=>$field); $results .= $query->p( $query->b("$field:"), $query->param($field) ); $count--; } else { print $query->b("$field:"), $query->textfield(-name=> $field), $query->submit(-value=> 'Submit'); last; } unless ($count) {print $results} } }


Comment on Re: CGI.pm multiple forms
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://215361]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (5)
As of 2014-07-12 06:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (238 votes), past polls