/[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 1102 by dpavlin, Sun Jun 28 23:09:47 2009 UTC revision 1108 by dpavlin, Mon Jun 29 16:46:03 2009 UTC
# Line 214  sub params_form { Line 214  sub params_form {
214                  grep {                  grep {
215                          die "$_ doesn't have meta" unless $class->can('meta');                          die "$_ doesn't have meta" unless $class->can('meta');
216                          ! $class->meta->get_attribute($_)->is_lazy                          ! $class->meta->get_attribute($_)->is_lazy
217                          && ! defined $default->{$_}  #                       && ! defined $default->{$_}             # XXX show fields with values
218                          && ! m{^_} # skip _private                          && ! m{^_} # skip _private
219                  } $self->attributes;                  } $self->attributes;
220    
# Line 230  sub params_form { Line 230  sub params_form {
230          delete( $fieldset->{$_} )          delete( $fieldset->{$_} )
231                  foreach ( grep { $#{ $fieldset->{$_} } == 0 } keys %$fieldset );                  foreach ( grep { $#{ $fieldset->{$_} } == 0 } keys %$fieldset );
232    
233  warn "XXX fields = ",dump( @fields );          warn "# fieldset = ",dump( $fieldset );
 warn "XXX set = ",dump( $fieldset );  
234    
235          foreach my $name ( @fields ) {          foreach my $name ( @fields ) {
236                  my $attr_type = '';                  my $attr_type = '';
# Line 281  warn "XXX set = ",dump( $fieldset ); Line 280  warn "XXX set = ",dump( $fieldset );
280    
281  #               warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );  #               warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
282    
283                  $label_title .= qq| class="required"| if $required->{$name};                  if ( $required->{$name} ) {
284                            $label_title .= qq| class="required"|;
285                            $value_html =~ s{(<\S+)\s}{$1 class=required };
286                    }
287                  $label =~ s/_/ /g;                  $label =~ s/_/ /g;
288    
289                  my $set = $name;                  my $set = $name;
# Line 335  warn "XXX set = ",dump( $fieldset ); Line 337  warn "XXX set = ",dump( $fieldset );
337                  label.required {                  label.required {
338                          font-weight: bold;                          font-weight: bold;
339                  }                  }
340                    input.required,
341                    select.required {
342                            border-color: #c00;
343                    }
344    
345                  br {                  br {
346                          clear: left;                          clear: left;
Legend:
Removed from v.1102  
changed lines
  Added in v.1108
  ViewVC Help
Powered by ViewVC 1.1.26