Friends. I want to pop up an alert if a checkbox isn't checked.
Below is the code I have so far. Notes: 1. The cgi page is actuatlly at http://www.biblescramble.com/Esther/scriptCheck.cgi 2. x.cgi doesn't exist. This doesn't get that far. I'm just working on the alert. 3. "if(1==1)" obviously is what needs to be changed. ### #!/usr/bin/perl use CGI qw/:standard/; use CGI::Carp qw(carpout fatalsToBrowser); $script=<<END; function valid8() { if (1==1) { alert("Not checked."); } } END print header('text/html'), start_html(-title=>"Check if check checked", -script=>$script), start_form(-name, "formA", -method, "post", -action, "x.cgi", -onSubmit=>"return valid8()"),"\n", h2("Check this"), p, checkbox(-name, "checker", value, "checker"), br, p,submit("Submit"), end_form, end_html; ### Thanks in advance! Jerry _________________________________________________________________ Exercise your brain! Try Flexicon. http://games.msn.com/en/flexicon/default.htm?icid=flexicon_hmemailtaglineapril07 _______________________________________________ Perl-Win32-Users mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
