/[Frey]/trunk/lib/Frey/Action.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Action.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 977 by dpavlin, Fri Jan 9 21:50:21 2009 UTC revision 978 by dpavlin, Fri Jan 9 23:17:23 2009 UTC
# Line 104  sub attributes { Line 104  sub attributes {
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;
# Line 193  sub params_form { Line 201  sub params_form {
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
# Line 225  sub params_form { Line 225  sub params_form {
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};
# Line 236  sub params_form { Line 236  sub params_form {
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
Legend:
Removed from v.977  
changed lines
  Added in v.978
  ViewVC Help
Powered by ViewVC 1.1.26