Skip Menu |

This queue is for tickets about the HTML-FormFu CPAN distribution.

Report information
The Basics
Id: 39228
Status: rejected
Priority: 0/
Queue: HTML-FormFu

People
Owner: Nobody in particular
Requestors: rod.taylor [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in:
  • 0.03003
  • 0.03004
Fixed in: (no value)



Subject: se of uninitialized value in sprintf at HTML/FormFu/Element/Select.pm line 60.
The below form declaration items seems to result in $render->{nested_name} being undefined at times in both 0.03003 and 0.03004. - type: Select label: Item Decision name: agendum_decision empty_first: 1 empty_first_label: '[ Select Decision if Applicable ]' options: - ['approved', 'Approved'] - ['rejected', 'Rejected'] - ['deferred', 'Deferred'] constraints: - Required - AutoSet This silences the warning though I doubt this is the correct fix. *** /usr/local/lib/perl5/site_perl/5.8.8/HTML/FormFu/Element/Select.pm.orig Fri Sep 12 14:33:44 2008 --- /usr/local/lib/perl5/site_perl/5.8.8/HTML/FormFu/Element/Select.pm Fri Sep 12 14:34:28 2008 *************** *** 58,64 **** # select_tag template my $html .= sprintf qq{<select name="%s"%s>\n}, ! $render->{nested_name}, process_attrs( $render->{attributes} ); for my $option ( @{ $render->{options} } ) { --- 58,64 ---- # select_tag template my $html .= sprintf qq{<select name="%s"%s>\n}, ! $render->{nested_name} || '', process_attrs( $render->{attributes} ); for my $option ( @{ $render->{options} } ) {
Can you post some code that causes the warning? I can't see what would cause it, and that's definitely not the right fix, as you'll end up with the select menu having no name. Cheers, Carl