form buttons

win95progman has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.

Re: form buttons
by stefan k (Curate) on Nov 30, 2001 at 15:09 UTC

<input type="submit" name="action" value="Search">
<input type="submit" name="action" value="Logout">
[download]

use CGI;
[download]

if (param("action") eq "Search") {
   # ...
}
# ...
[download]

Please take into account that this comes from the back of my head and I have not been doing CGIs for more than a year now; still it should be correct.

Regards... Stefan

you begin bashing the string with a +42 regexp of confusion

[reply]
[d/l]
[select]

Re: form buttons
by Anonymous Monk on Nov 30, 2001 at 15:12 UTC

<input type="submit" name="action" value="button1">
<input type="submit" name="action" value="button2">
<input type="submit" name="action" value="button3">
[download]

my $query = CGI::new();
#assign value to $action
my $action = $query->param('action');
[download]

if ($action eq 'button1') {
#do your thing
}elsif ($action eq 'button2'){
#do another thing
}
[download]

[reply]
[d/l]
[select]

Re: form buttons
by kwoff (Friar) on Nov 30, 2001 at 20:09 UTC

Also, sometimes you want to separate the buttons in different <FORM> sections.

[reply]


Perl-Sensitive Sunglasses
	PerlMonks