/[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 386 by dpavlin, Mon Nov 17 22:40:22 2008 UTC revision 390 by dpavlin, Tue Nov 18 00:54:10 2008 UTC
# Line 86  sub params_form { Line 86  sub params_form {
86                  return (undef,$self->params) if wantarray;                  return (undef,$self->params) if wantarray;
87                  return;                  return;
88          } else {          } else {
89                  warn $self->class, " required params ", dump( @required ) if $self->debug;                  warn $self->class, " required params ", map { $_->dump(2) } @required if $self->debug;
90          }          }
91    
92          my $class = $self->class;          my $class = $self->class;
# Line 142  sub params_form { Line 142  sub params_form {
142  #               warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );  #               warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
143                  $form .= qq|<label for="$name"$label_title>$label</label>| . $value_html;                  $form .= qq|<label for="$name"$label_title>$label</label>| . $value_html;
144          }          }
145          my $html = join("\n",          my $html = qq|<h1>$class params</h1><form method="post">$form<input type="submit" value="Run $class"></form>|;
146                  qq|<h1>$class params</h1><form method="post">$form<input type="submit" value="Run $class"></form>|,          push @{ $self->status }, { 'Params' =>
147                  qq|<span class="frey-popdown">config<span><code>|  . dump( $config_params ) . qq|</span></span>|,                  {
148                  qq|<span class="frey-popdown">default<span><code>| . dump( $default )       . qq|</span></span>|,                          'Config'  => $config_params,
149          ) if $form;                          'Default' => $default
150                    },
151            };
152    
153          return ($html,$default) if wantarray;          return ($html,$default) if wantarray;
154          return $html;          return $html;
Legend:
Removed from v.386  
changed lines
  Added in v.390
  ViewVC Help
Powered by ViewVC 1.1.26