104 |
|
|
105 |
sub params_form { |
sub params_form { |
106 |
my ( $self ) = @_; |
my ( $self ) = @_; |
107 |
|
|
108 |
|
foreach my $checkbox ( split(/\s+/, $self->params->{'frey-checkboxes'} ) ) { |
109 |
|
next if defined $self->params->{ $checkbox }; |
110 |
|
|
111 |
|
$self->params->{ $checkbox } = 0; |
112 |
|
warn "# checkbox $checkbox not ticked"; |
113 |
|
} |
114 |
|
|
115 |
my $required = $self->required('as_hash'); |
my $required = $self->required('as_hash'); |
116 |
if ( $required ) { |
if ( $required ) { |
117 |
warn $self->class, " required params ", dump( keys %$required ) if $self->debug; |
warn $self->class, " required params ", dump( keys %$required ) if $self->debug; |
201 |
} |
} |
202 |
|
|
203 |
|
|
|
foreach my $checkbox ( split(/\s+/, $default->{'frey-checkboxes'} ) ) { |
|
|
next if defined $default->{ $checkbox }; |
|
|
|
|
|
$default->{ $checkbox } = 0; |
|
|
$self->params->{ $checkbox } = 0; |
|
|
warn "# checkbox $checkbox not ticked"; |
|
|
} |
|
|
|
|
204 |
my @checkboxes; |
my @checkboxes; |
205 |
|
|
206 |
my $label_width = 1; # minimum |
my $label_width = 1; # minimum |
225 |
my $value = |
my $value = |
226 |
defined $default->{$name} ? $default->{$name} : |
defined $default->{$name} ? $default->{$name} : |
227 |
$attr->has_default ? $attr->default( $name ) : |
$attr->has_default ? $attr->default( $name ) : |
228 |
''; |
undef; |
229 |
|
|
230 |
if ( ref($params_config) eq 'HASH' && defined $params_config->{$name} ) { |
if ( ref($params_config) eq 'HASH' && defined $params_config->{$name} ) { |
231 |
$value = $params_config->{$name}; |
$value = $params_config->{$name}; |
236 |
$value_html = select_values( $name, $attr_type, $attr->type_constraint->values ); |
$value_html = select_values( $name, $attr_type, $attr->type_constraint->values ); |
237 |
} elsif ( $attr_type =~ m{^Bool} ) { |
} elsif ( $attr_type =~ m{^Bool} ) { |
238 |
my $suffix = ''; |
my $suffix = ''; |
239 |
$suffix = ' checked' if $value; |
$suffix = ' checked=1' if $value; |
240 |
$value_html = qq|<input type="checkbox" name="$name" title="$attr_type" value="1"$suffix>|; |
$value_html = qq|<input type="checkbox" name="$name" title="$attr_type" value=1$suffix>|; |
241 |
push @checkboxes, $name; |
push @checkboxes, $name; |
242 |
} elsif ( ! defined $value ) { |
} elsif ( ! defined $value ) { |
243 |
$value_html = qq|<tt id="$name">undef</tt><!-- $name = undef -->|; # FIXME if $self->debug |
$value_html = qq|<tt id="$name">undef</tt><!-- $name = undef -->|; # FIXME if $self->debug |