Re: Re: Re: CGI Checkboxes

The param method doesn't seem to work for checkboxes. Here's a cut-down version of what (I think) you're doing:

param('checkbox', 1);

print checkbox(-name=>'checkbox',
               -value=>'checkbox',
               -label=>'My Checkbox');
[download]

Which prints:

<INPUT TYPE="checkbox" NAME="checkbox" VALUE="checkbox">My Checkbox
[download]

Whereas code like this:

print checkbox(-name=>'checkbox2',
               -value=>'checkbox2',
               -label=>'My Other Checkbox',
               -checked=>1);
[download]

Prints what (I think) you want

<INPUT TYPE="checkbox" NAME="checkbox2" VALUE="checkbox2" CHECKED>My O
+ther Checkbox
[download]

--
<http://www.dave.org.uk>

"The first rule of Perl club is you don't talk about Perl club."

Comment on Re: Re: Re: CGI Checkboxes Select or Download Code

Replies are listed 'Best First'.
Re: Re: Re: Re: CGI Checkboxes by Sidhekin (Priest) on Oct 26, 2001 at 19:41 UTC
The param method doesn't seem to work for checkboxes. Oh, yes it does :-) Here's a cut-down version of what (I think) you're doing: `param('checkbox', 1); print checkbox(-name=>'checkbox', -value=>'checkbox', -label=>'My Checkbox');` [download] Which prints: `<INPUT TYPE="checkbox" NAME="checkbox" VALUE="checkbox">My Checkbo +x` [download] And it is supposed to print it -- after all, you gave it the value "1", not "checkbox"! Try instead: `param('checkbox', 1); print checkbox(-name=>'checkbox', -value=>'checkbox', -label=>"My Checkbox\n"); print checkbox(-name=>'checkbox', -value=>'1', -label=>'My Checkbox, value 1');` [download] This should print so: `<INPUT TYPE="checkbox" NAME="checkbox" VALUE="checkbox">My Checkbox <INPUT TYPE="checkbox" NAME="checkbox" VALUE="1" CHECKED>My Checkbox, +value 1` [download] The Sidhekin	[reply] [d/l] [select]
Re: Re: Re: Re: CGI Checkboxes by michellem (Friar) on Oct 26, 2001 at 19:57 UTC
Thanks, Dave for the ideas - but I'm still stuck, and I'm about to lose it. Here's the code that I've generated: } elsif ($type =~ /check/) { my %hash = (); $type =~ s/check/checkbox/; print "$english:\n"; (my $values, my $labels) = split (':',$params[0]); my @checks_list = split (';',$values); my @clabels_list = split (';',$labels); @hash{@checks_list} = @clabels_list; foreach(@checks_list) { my $index=index $real_fields{$name},$_; if ($index != -1) { print $q->b('This should be checked!'); print $q->checkbox(-checked=>'checked', -name=>"$n +ame", -value=>"$_", -label=>"$hash{$_}"); } else { print $q->checkbox(-name=>"$name", -value=>"$_", - +label=>"$hash{$_}"); } } print $q->br(); } [download] This still does not give me the right HTML code! The really weird thing is that here is an example of what I get: `What kind of support? <b>This should be checked!</b><input type="check +box" name="form_assist" value="loan" />Loan<b>This should be checked! +</b><input type="checkbox" name="form_assist" value="grant" />Grant<b +r />` [download]	[reply] [d/l] [select]