Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Re: Why is my CGI.pm script trying to assign data before pressing submit.

by CharlesClarkson (Curate)
on Dec 07, 2001 at 20:30 UTC ( [id://130225]=note: print w/replies, xml ) Need Help??


in reply to Re: Why is my CGI.pm script trying to assign data before pressing submit.
in thread Why is my CGI.pm script trying to assign data before pressing submit.

With CGI.pm you would need these:

use CGI;
my $p = new CGI;

my $js_func =
    qq|
        function checkform (form) {
            if (form.report.value == '') {
                alert('You need to enter a filename!');
                form.report.focus;
                return false;
            }
            return true;
        }
    |;

[download]

Place the script in $p->start_html using -script.

print $p->start_html( -script => $js_func );

Then, when you start the form, use:

print $p->start_form(-onsubmit => 'checkform(this)');


HTH,
Charles

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://130225]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others having a coffee break in the Monastery: (3)
As of 2024-04-16 11:19 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found