Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

newbie perl cgi.pm/javascript problem

by westy032001 (Novice)
on Mar 05, 2009 at 11:46 UTC ( #748492=perlquestion: print w/replies, xml ) Need Help??

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

firstly apologies A. this is a perl/javascript question
B. Im a perl newbie (ish)
C Im a javascript novice
D. I'm doing somthing stupid!
what's wrong with the code below ??
the function runs (i see the first alert) but in firebug, the next js section causes a "checkbox_form is not defined" and i dont see the alert when no check box's are ticked.
#!/usr/bin/perl use CGI qw(:standard); use CGI::Carp qw(fatalsToBrowser); $JSCRIPT=<<EOF; function validate() { alert(" yes it ran"); var checkbox_choices = 0; // Loop from zero to the one minus the number of checkbox button selec +tions for (counter = 0; counter < checkbox_form.checkbox.length; counter++) { // If a checkbox has been selected it will return true // (If not it will return false) if (checkbox_form.checkbox[counter].checked) { checkbox_choices = checkbox_choices + 1; } } if (checkbox_choices < 1 ) { // If there were less then selections made display an alert box alert("Please make a selection"); return (false); } }; EOF ; print header; print start_html(-script=>$JSCRIPT); print h1("this is the main"); print start_form(-action=>"/cgi-bin/mockup/main2.cgi", -target=>"mainframe", -name=>"checkbox_form", -onSubmit=>"return validate()"), checkbox_group(-name=>"checkbox", -values=>['red','green','blue']), p(),submit; print end_form; print end_html;

Replies are listed 'Best First'.
Re: newbie perl cgi.pm/javascript problem
by bellaire (Hermit) on Mar 05, 2009 at 11:55 UTC
    This seems to be strictly a JavaScript question, and it looks like you need to invoke document.checkbox_form instead of just checkbox_form.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://748492]
Approved by ELISHEVA
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (4)
As of 2022-06-25 19:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My most frequent journeys are powered by:









    Results (83 votes). Check out past polls.

    Notices?