You can give each form's submit buttons a single name, to check for which form is shipped, and different values to determine what function is meant. So a login form might have Login=Sign Up, Login=Login, or Login=Logout, while the blog poster form has Node=Preview or Node=Stumbit.

Or else you can set different actions for each form.

After Compline,
Zaxo

Sorting out all the various states you can get with multiple forms can get messy really quickly if you try and handle it by yourself. You are better off using a module like CGI::Application which gives you a nice architecture for this type of thing.

Basically, your script becomes a small stub which just contains configuration information and the bulk of the code is in one or more modules which are made of subroutines which represent 'run-modes' or pages in yourapplication. You can navigate from page to page by calling different run-modes and store state in between. As a bonus it also has hooks into HTML::Template to keep your business logic seperate from your HTML. And you can use any of the functions from CGI.pm.

--
જલધર

Some ways you can keep track of which stage you are at in your script

• use a hidden variable or set of variables.
• use a cookie
• use the different button name method suggested above
• set additional path_info: e.g. URLs like http://www.site.com/cgi-bin/myscript.cgi/stage1 and http://www.site.com/cgi-bin/myscript.cgi/stage2

Dingus

rdfield

Thanks for all the help =) I'll take a look at some of these methods.

#!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}
    }
}
[download]