/[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 1160 by dpavlin, Thu Jul 2 15:56:40 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 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 => {
Legend:
Removed from v.1160  
changed lines
  Added in v.1161
  ViewVC Help
Powered by ViewVC 1.1.26