I boggle when I see JS abused in such a fashion. JS is filtered by security web filters, and disabled by more people today than ever. Your site should still work fine without JS: it should use JS only to enhance the experience.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Well, I tried both onclick="this.form.submit();return true;" and onclick="return this.form.submit();" - nothing works... The only thing came to my mind - to create another hidden varuable and to assign a value to in in "onclick" handler.

--dda

You didn't get what I mean!
You use a submit button. If you supply an onclick handler, this one has to return true in order for the button to submit anything.
But your onclick handler already does the submit.

Question: What do you want to achieve?

#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw(:standard);

print header, start_html;
print ("Submitted:", param(), hr) if param();
print start_form, 
    submit('button1'), submit('button2'),
    end_form, end_html
;
[download]

If this still doesn't do what you want, you will need to elaborate a bit more (and, yes i read Re: Re: Re: Re: <input type="button"> does not generate parameter=>value pair and i still don't know what you really want).

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

Thanks jeffa. Suppose I add a text field to the form:

#!/usr/bin/perl -T

use strict;
use warnings;
use CGI qw(:standard);

print header, start_html;
print ("Submitted:", param(), hr) if param();
print start_form, 
    textfield('text1'), br,
    submit('button1'), submit('button2'),
    end_form, end_html
;
[download]

Now I need to enter some value into it and press 'Enter'. That way I will get 'button1' in param() - and I need 'button2' instead. I suppose it is due the fact that button1 has tabindex lower than button2... Is there a way to specify tabindex?

By the way, when I pressed 'reply' I saw a button at the top of the screen - looks like my question title was parsed as HTML.

--dda

Ooooooooo ... that's what you are getting at. I recently had a similar problem that i solved by providing another interface. In this case, it was a significant benefit to do so, as it allowed me to enter data quickly (type numbers - tab - type numbers - tab, etc.). If you don't care to code another interface you can still use a simple keyboard trick: when you have finished entering data in the last textbox (assuming there will be more than one), press Tab twice and then the Space Bar once (or Enter key once, but the Space Bar is closer). This should skip over the first button and activate the second.

Of course, you probably can do this with JavaScript ... but 'JavaScript' ne 'Perl' ;)

That's odd that your question title was actually parsed ... tye fixed that a while back (see More HTML escaping), but it is possible someone was pmdevilin' around with the source at the time you saw this "Unidentified Formatting Occurence".

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

#!/usr/bin/perl

use warnings;
use strict;
use CGI qw( :standard );

our $query = new CGI;
our $method = $query->param("op");
print $query->header;
print $query->start_html(-title=>'Exemple');
unless ($method) { 
       print $query->start_form(-method=>"POST");
       print ' Name: ';
       print $query->textfield(-name=>'name');
       print $query->hidden(-name=>'op',
                            -default=>"01");
       print $query->submit('submit','submit');
       print $query->reset('reset');
       print $query->endform;
} else {
       my $name = $query->param("name");
       print "Name: $name";
}
print $query->end_html;
[download]