My problem was actually in populating my %titles_prd_order_allowed, which I didn't include, trying to keep it short - sorry. Sorted now, thanks.
my @low_values_prd_order_allowed = (); my %meanings_prd_order_allowed = (); my %titles_prd_order_allowed = (); my $stmt = "SELECT value, meaning, title FROM OPTIONS "; my $sth = $dbh->prepare($stmt); $sth->execute(); while ( ( $value, $meaning, $title ) = $sth->fetchrow_array() ) { push( @low_values_prd_order_allowed, $value ); $meanings_prd_order_allowed{$value} = $meaning; $titles_prd_order_allowed{$value} = ( $value =>{'title'=> $title} ); } print $q->label( { -for => 'idprd_order_allowed' }, "ORDER ALLOWED" ); print $q->popup_menu( -id => 'idprd_order_allowed', -name => 'prd_order_allowed', -override => 1, -onChange => "changeInCore=true", -default => $prd_order_allowed, -value => [@low_values_prd_order_allowed], -labels => \%meanings_prd_order_allowed, -attributes => \%titles_prd_order_allowed );
I (being a numpty) previously had:
$titles_prd_order_allowed{$rv_low_value} = $title;In reply to Re^2: Adding attributes to select list options in CGI.pm popup_menu?
by backedge
in thread Adding attributes to select list options in CGI.pm popup_menu?
by backedge
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |