/[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 782 by dpavlin, Tue Dec 9 20:31:42 2008 UTC revision 832 by dpavlin, Sat Dec 13 16:37:07 2008 UTC
# Line 194  sub params_form { Line 194  sub params_form {
194                          $attr->has_default        ? $attr->default( $name ) :                          $attr->has_default        ? $attr->default( $name ) :
195                          '';                          '';
196    
197                  if ( ref($params_config) eq 'HASH' ) {                  if ( ref($params_config) eq 'HASH' && defined $params_config->{$name} ) {
198                          $value = $params_config->{$name};                          $value = $params_config->{$name};
199                  } elsif ( ref($params_config) eq 'ARRAY' ) {                  } elsif ( ref($params_config) eq 'ARRAY' ) {
200                          $value_html = select_values( $name, $attr_type, $params_config );                          $value_html = select_values( $name, $attr_type, $params_config );
# Line 208  sub params_form { Line 208  sub params_form {
208                          push @checkboxes, $name;                          push @checkboxes, $name;
209                  } elsif ( ! defined $value ) {                  } elsif ( ! defined $value ) {
210                          $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
211                  } elsif ( $attr_type !~ m{^(Str|Int)$} || $value =~ $Frey::Web::re_html ) {                  } elsif ( $attr_type !~ m{^(Str|Int)$} || $value =~ $Frey::Web::re_html || $name =~ m{text} ) {
212                          $value_html = qq|<textarea name="$name" title="$attr_type">$value</textarea>|;                          $value_html = qq|<textarea name="$name" title="$attr_type">$value</textarea>|;
213                  }                  }
214    
Legend:
Removed from v.782  
changed lines
  Added in v.832
  ViewVC Help
Powered by ViewVC 1.1.26