/[Frey]/branches/no-pager/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 /branches/no-pager/lib/Frey/Action.pm

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

revision 757 by dpavlin, Sun Dec 7 01:33:37 2008 UTC revision 758 by dpavlin, Tue Dec 9 19:08:27 2008 UTC
# Line 26  has 'params' => ( Line 26  has 'params' => (
26          default => sub { {} },          default => sub { {} },
27  );  );
28    
29    has 'input_resize_step' => (
30            documentation => 'Resize input fields by this step',
31            is => 'rw',
32            isa => 'Int',
33    #       required => 1,
34            default => 20,
35    );
36    
37  =head2 required  =head2 required
38    
39    my @required_attributes = $self->required;    my @required_attributes = $self->required;
# Line 181  sub params_form { Line 189  sub params_form {
189    
190                  $default->{$name} = $value unless defined $default->{$name};                  $default->{$name} = $value unless defined $default->{$name};
191    
192                  $value_html = qq|<input type="$type" name="$name" title="$attr_type" value="$value">| unless $value_html;                  my $size = ( int( length($value) / $self->input_resize_step ) + 1 ) * $self->input_resize_step;
193                    $value_html = qq|<input type="$type" name="$name" title="$attr_type" value="$value" size="$size">| unless $value_html;
194    
195  #               warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );  #               warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
196                  $form .= qq|<label for="$name"$label_title>$label</label>$value_html<br>|;                  $form .= qq|<label for="$name"$label_title>$label</label>$value_html<br>|;
Legend:
Removed from v.757  
changed lines
  Added in v.758
  ViewVC Help
Powered by ViewVC 1.1.26