/[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 1142 by dpavlin, Wed Jul 1 12:23:58 2009 UTC revision 1161 by dpavlin, Thu Jul 2 16:53:39 2009 UTC
# Line 176  sub select_values { Line 176  sub select_values {
176                  $html = qq|<div style="display: block;">$radio</div>|;                  $html = qq|<div style="display: block;">$radio</div>|;
177          }          }
178    
179          return          return $html;
 #                       qq|<input type="text" name="$name">| .  
                 $html  
180  }  }
181    
182  sub params_form {  sub params_form {
# Line 292  sub params_form { Line 290  sub params_form {
290                          $label_title .= qq| class="required"|;                          $label_title .= qq| class="required"|;
291                          $value_html =~ s{(<\S+)\s}{$1 class=required };                          $value_html =~ s{(<\S+)\s}{$1 class=required };
292                  }                  }
                 $label =~ s/_/ /g;  
293    
294                  my $set = $name;                  my $set = $name;
295                  $set =~ s{_[^_]+$}{};                  $set =~ s{_[^_]+$}{};
# Line 310  sub params_form { Line 307  sub params_form {
307                                          </fieldset>                                          </fieldset>
308                                  |;                                  |;
309                          }                          }
310                          $label =~ s{^\Q$set\E\s+}{};                          $label =~ s{^\Q$set\E_+}{};
311                  }                  }
312    
313                    $label = $self->_label( $label );
314                  $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|;
315                  my $ll = length($label);                  my $ll = length($label);
316                  $label_width = $ll if $ll > $label_width;                  $label_width = $ll if $ll > $label_width;
# Line 366  sub params_form { Line 364  sub params_form {
364          # http://www.quirksmode.org/oddsandends/forms.html          # http://www.quirksmode.org/oddsandends/forms.html
365  #       $form =~ s{<([^>]+)(name=")([^"]+)(")([^>]*)>}{<$1$2$3$4 id="$3" $5}gs;  #       $form =~ s{<([^>]+)(name=")([^"]+)(")([^>]*)>}{<$1$2$3$4 id="$3" $5}gs;
366    
367          $html = qq|          if ( $form ) {
368                  <h1>$class params</h1>  
369                  <form name="$form_id" id="$form_id" method="post">                  if ( $self->class->can('form_header') ) {
370                  $form                          $html = $self->class->form_header;
371                  <input type="submit" value="Run $class">                  } else {
372                  </form>                          $html = qq|
373          | if $form;                                  <h1>$class params</h1>
374                            |;
375                    }
376    
377                    $html .= qq|
378                            <form name="$form_id" id="$form_id" method="post">
379                            $form
380                            <input type="submit" value="Run $class">
381                            </form>
382                    |;
383                    $html .= $self->class->form_footer if $self->class->can('form_footer');
384            }
385    
386          $self->add_status({          $self->add_status({
387                  $self->class => {                  $self->class => {
# Line 386  sub params_form { Line 395  sub params_form {
395          return $html;          return $html;
396  }  }
397    
398    sub _label {
399            my ($self,$name) = @_;
400            my $labels = $self->class->form_labels if $self->class->can('form_labels');
401            my $label = $labels->{$name};
402            if ( ! defined $label ) {
403                    $label = $name;
404                    $label =~ s{_}{ }g;
405            }
406            return $label;
407    }
408    
409  =head1 SEE ALSO  =head1 SEE ALSO
410    
411  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.1142  
changed lines
  Added in v.1161
  ViewVC Help
Powered by ViewVC 1.1.26