/[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 1133 by dpavlin, Tue Jun 30 15:10:55 2009 UTC revision 1142 by dpavlin, Wed Jul 1 12:23:58 2009 UTC
# Line 132  sub select_values { Line 132  sub select_values {
132          warn "# max_value_len: $max_value_len";          warn "# max_value_len: $max_value_len";
133          #my $render = eval $class . '->render_' . $name;          #my $render = eval $class . '->render_' . $name;
134          my $call = 'render_' . $name;          my $call = 'render_' . $name;
135          my $render = $self->class->$call;          my $render = $self->class->$call if $self->class->can($call);
136          warn "## render $@";          warn "## render $@";
137    
138          if ( $#values > 3 && $render !~ m{radio} ) {          if ( $#values > 3 && $render !~ m{radio} ) {
# Line 262  sub params_form { Line 262  sub params_form {
262                  } elsif ( $attr->has_type_constraint && $attr->type_constraint->can('values') ) {                  } elsif ( $attr->has_type_constraint && $attr->type_constraint->can('values') ) {
263                          $value_html = $self->select_values( $name, $attr_type, $attr->type_constraint->values );                          $value_html = $self->select_values( $name, $attr_type, $attr->type_constraint->values );
264                  } elsif ( $class->can( $name . '_available' ) ) {                  } elsif ( $class->can( $name . '_available' ) ) {
265                          my $available = $class->$name . '_available';                          my $available = $name . '_available';
266                            $available = $class->$available;
267                          confess $@ if $@;                          confess $@ if $@;
268                          $available =~ s/^\s+//gs;                          $available =~ s/^\s+//gs;
269                          $available =~ s/\s+$//gs;                          $available =~ s/\s+$//gs;
Legend:
Removed from v.1133  
changed lines
  Added in v.1142
  ViewVC Help
Powered by ViewVC 1.1.26