#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
my $cgi = new CGI;
print $cgi->header;
print $cgi->start_html;
print $cgi->checkbox(-name => 'my_checkbox',
-value => 'eenie',
-label => 'first choice',
-labelattributes => { class => 'somecssclass' }
);
print $cgi->end_html;
####
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
my $cgi = new CGI;
print $cgi->header;
print $cgi->start_html;
my %labels = (
'eenie'=>'first choice',
'meenie'=>'second choice',
'minie'=>'third choice');
print $cgi->checkbox_group(-name => 'my_checkbox',
-values => ['eenie','meenie','minie'],
-labels => \%labels,
-labelattributes => { class => 'somecssclass' }
);
print $cgi->end_html;
####
#!/usr/bin/perl
use strict;
use CGI qw/:standard/;
my $cgi = new CGI;
print $cgi->header;
print $cgi->start_html;
my %labels = ('eenie'=>'first choice',
'meenie'=>'second choice',
'minie'=>'third choice');
my %labelattr = ('eenie'=> { 'class' => 'somecssclass' } );
my %attr = ('eenie'=> { 'class' => 'someothercssclass' } );
print $cgi->checkbox_group(-name => 'my_checkbox',
-values => ['eenie','meenie','minie'],
-labels => \%labels,
-attributes => \%attr,
-labelattributes => \%labelattr
);
print $cgi->end_html;
####