/[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 1161 by dpavlin, Thu Jul 2 16:53:39 2009 UTC revision 1162 by dpavlin, Thu Jul 2 17:49:04 2009 UTC
# Line 53  sub required { Line 53  sub required {
53          my @required =          my @required =
54                  grep {                  grep {
55                          defined $_ && $_->can('name') &&                          defined $_ && $_->can('name') &&
                         ! defined( $self->params->{ $_->name } ) &&  
56                          ! $_->is_lazy                          ! $_->is_lazy
57                  }                  }
58                  map {                  map {
# Line 66  sub required { Line 65  sub required {
65    
66          if ( $param eq 'as_hash' ) {          if ( $param eq 'as_hash' ) {
67                  my $hash;                  my $hash;
68                  map { $hash->{$_}++ } @required;                  map {
69                            $hash->{$_} = 1;
70                            $hash->{$_} = 0 if defined $self->params->{$_};
71                    } @required;
72                  return $hash;                  return $hash;
73          }          }
74          return @required if wantarray;          return @required if wantarray;
# Line 190  sub params_form { Line 192  sub params_form {
192          }          }
193    
194          my $required = $self->required('as_hash');          my $required = $self->required('as_hash');
195          if ( $required ) {          if ( grep { $required->{$_} } keys %$required ) {
196                  warn $self->class, " required params ", dump( keys %$required ) if $self->debug;                  warn $self->class, " required params ", dump( keys %$required ) if $self->debug;
197          } else {          } else {
198                  warn "all params available ", dump( $self->params ), " not creating form" if $self->debug;                  warn "all params available ", dump( $self->params ), " not creating form" if $self->debug;
# Line 286  sub params_form { Line 288  sub params_form {
288    
289  #               warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );  #               warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
290    
291                  if ( $required->{$name} ) {                  if ( defined $required->{$name} ) {
292                          $label_title .= qq| class="required"|;                          $label_title .= qq| class="required"|;
293                          $value_html =~ s{(<\S+)\s}{$1 class=required };                          my $class = 'required';
294                               $class = 'required-filled' if ! $required->{$name};
295                            $value_html =~ s{(<\S+)\s}{$1 class=$class };
296                  }                  }
297    
298                  my $set = $name;                  my $set = $name;
# Line 347  sub params_form { Line 351  sub params_form {
351                  select.required {                  select.required {
352                          border-color: #c00;                          border-color: #c00;
353                  }                  }
354                    input.required-filled,
355                    select.required-filled {
356                            border-color: #0c0;
357                    }
358    
359                  br {                  br {
360                          clear: left;                          clear: left;
Legend:
Removed from v.1161  
changed lines
  Added in v.1162
  ViewVC Help
Powered by ViewVC 1.1.26