Thread "Check All" Button bei CGI und Checkboxen
(14 answers)
Opened by tecker at 2008-12-02 17:38
Hab jetzt 3 Sachen versucht den Javascriptcode an den Browser zu schicken. Er wird ja auch angezeigt im Browser also scheint das eigentlich zu klappen, aber so richtig funktioniert das alles doch noch nicht. Ist mein Fuktionsaufruf evtl. falsch?
1. Code (perl): (dl
)
1 2 3 4 5 6 7 8 print $cgi->header( -type=>'text/html'); print $cgi->start_html( -dtd => '-//W3C//DTD XHTML 1.0 Transitional//EN', -title=>'Test', -style=>{'src'=>"https://10.255.253.7/passwd/styles.css"}, -script=>{ -language=>'JavaScript', -src=>'checkall.js'} ); 2. Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 print "<script type=\"text/javascript\"> <!-- function AllMessages() {for(var x=0;x<document.form1.elements.length;x++) {var y=document.form1.elements[x]; if(y.name!='ALLMSGS') y.checked=document.form1.checkall.checked; } } //--> </script>"; 3. Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 my $JSCRIPT=<<END; function AllMessages() {for(var x=0;x<document.form1.elements.length;x++) {var y=document.form1.elements[x]; if(y.name!='ALLMSGS') y.checked=document.form1.checkall.checked; END print $cgi->start_html( -dtd => '-//W3C//DTD XHTML 1.0 Transitional//EN', -title=>'Remote Password Changer', -style=>{'src'=>"https://10.255.253.7/passwd/styles.css"}, -script=>$JSCRIPT); Aufruf später jeweils über: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 print $cgi->start_form({-id=>'form1',-name=>'form1',-action => "$url/cgi-bin/passwd/ssh.pl", -method=>'post'}); [...] while ($prepare_select_hosts->fetch()){ print $cgi->Tr( $cgi->td({-width=>'20'},$id), $cgi->td($hostname), $cgi->td($ip), $cgi->td($cgi->checkbox(-name=>'host', -value=>"$ip")) ); } print $cgi->Tr($cgi->td( $cgi->button(-name=>'checkall', -value=>'Check All', -onClick=>"AllMessages(this.form);")); |