leejo / CGI.pm

The CGI.pm perl module
Artistic License 2.0
34 stars 63 forks source link

labelattributes misbehaves in checkbox_group [rt.cpan.org #66194] #82

Closed leejo closed 10 years ago

leejo commented 10 years ago

https://rt.cpan.org/Ticket/Display.html?id=66194

Dear Sir/Madam,

Many thanks for taking the time to look at this bug.

I'm using:
CGI  version 3.52
Perl version 5.10.1 for x86_64
OS Fedora Core 13
   2.6.33.6-147.2.4.fc13.x86_64

I assumed that in the context of a checkbox_group labelattributes would
behave the same as attributes so as to be able to assign attributes to
*specific* labels in a group. However using the code below I get ALL
labels being given a hashref to display.

#!/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;

Regards,

Richard Francis

-- 
Mr Richard W Francis, MSc

Senior Bioinformatician
UWA Centre for Child Health Research
Telethon Institute for Child Health Research
University of Western Australia
100 Roberts Rd, Subiaco Perth WA 6008 Australia
Email: rfrancis@ichr.uwa.edu.au

Tel: +61-8-9489 7930
Fax: +61-8-9489 7700

#####################################################################################
This e-mail message has been scanned for Viruses and Content and cleared 
by MailMarshal
#####################################################################################
leejo commented 10 years ago

Rejecting. I'm not accepting any feature requests, patches, or updates to the HTML generating functions of CGI.pm unless they are of a critical nature (i.e. fixing fundamentally broken HTML output).