Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid

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} } }

Comment on Re: multiple forms
Download Code

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2015-11-28 03:47 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (737 votes), past polls