diff options
| -rw-r--r-- | LedgerSMB/Template/Elements.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/LedgerSMB/Template/Elements.pm b/LedgerSMB/Template/Elements.pm index 4d0fde43..e111b646 100644 --- a/LedgerSMB/Template/Elements.pm +++ b/LedgerSMB/Template/Elements.pm @@ -147,6 +147,7 @@ my $checkboxes = { attributes => { foo => 'bar' }, values => [ '4', '', '3'], labels => [ 'Label one', '', 'Label three'], + default_values => [ 'checkbox_name1'], }; @@ -168,7 +169,7 @@ sub generate_checkbox_elements { # Additional attributes while ( my ($key, $value) = each(%$checkboxes) ) { - if ( $key !~ /^(names|values|labels|id|value|name)$/ ) { + if ( $key !~ /^(names|(default_)?values|labels|id|value|name)$/ ) { $element->{$key} = $value; } } @@ -186,6 +187,11 @@ sub generate_checkbox_elements { if ( $checkboxes->{labels}[$i] ) { $element->{label} = $checkboxes->{labels}[$i]; } + # Add checked attribute if the default value applies to this element. + if ( defined($checkboxes->{default_values}) && + grep {$_ eq $checkbox_name} @{$checkboxes->{default_values}}) { + $element->{checked} = 'checked'; + } push @$elements, $element; $i++; } |