/[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 1159 by dpavlin, Wed Jul 1 12:23:58 2009 UTC revision 1160 by dpavlin, Thu Jul 2 15:56:40 2009 UTC
# Line 292  sub params_form { Line 292  sub params_form {
292                          $label_title .= qq| class="required"|;                          $label_title .= qq| class="required"|;
293                          $value_html =~ s{(<\S+)\s}{$1 class=required };                          $value_html =~ s{(<\S+)\s}{$1 class=required };
294                  }                  }
                 $label =~ s/_/ /g;  
295    
296                  my $set = $name;                  my $set = $name;
297                  $set =~ s{_[^_]+$}{};                  $set =~ s{_[^_]+$}{};
# Line 310  sub params_form { Line 309  sub params_form {
309                                          </fieldset>                                          </fieldset>
310                                  |;                                  |;
311                          }                          }
312                          $label =~ s{^\Q$set\E\s+}{};                          $label =~ s{^\Q$set\E_+}{};
313                  }                  }
314    
315                    $label = $self->_label( $label );
316                  $form .= qq|$before<label for="$name"$label_title>$label</label>$value_html $after|;                  $form .= qq|$before<label for="$name"$label_title>$label</label>$value_html $after|;
317                  my $ll = length($label);                  my $ll = length($label);
318                  $label_width = $ll if $ll > $label_width;                  $label_width = $ll if $ll > $label_width;
# Line 386  sub params_form { Line 386  sub params_form {
386          return $html;          return $html;
387  }  }
388    
389    sub _label {
390            my ($self,$name) = @_;
391            my $labels = $self->class->form_labels if $self->class->can('form_labels');
392            my $label = $labels->{$name};
393            if ( ! defined $label ) {
394                    $label = $name;
395                    $label =~ s{_}{ }g;
396            }
397            return $label;
398    }
399    
400  =head1 SEE ALSO  =head1 SEE ALSO
401    
402  L<http://www.quirksmode.org/css/forms.html> for info on CSS2 forms  L<http://www.quirksmode.org/css/forms.html> for info on CSS2 forms
Legend:
Removed from v.1159  
changed lines
  Added in v.1160
  ViewVC Help
Powered by ViewVC 1.1.26