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

Re: multiple forms

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

in reply to 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} } }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://215361]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (8)
As of 2017-06-24 11:27 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (557 votes). Check out past polls.