/[Frey]/trunk/lib/Frey/Run.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/Run.pm

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

revision 284 by dpavlin, Wed Nov 5 08:20:54 2008 UTC revision 285 by dpavlin, Wed Nov 5 08:20:57 2008 UTC
# Line 39  sub html { Line 39  sub html {
39    
40          my @required =          my @required =
41                  grep {                  grep {
42                          defined $_ && !defined( $self->params->{$_} )                          defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } )
43                  }                  }
44                  map {                  map {
45                          my $attr = $class->meta->get_attribute($_);                          my $attr = $class->meta->get_attribute($_);
46                          $attr->is_required && $_                          $attr->is_required && $attr;
47                  } $class->meta->get_attribute_list;                  } $class->meta->get_attribute_list;
48    
49          warn "## required = ",dump( @required ), " for $class";          warn "## required = ",dump( map { $_->name } @required ), " for $class";
50    
51          my $html;          my $html;
52          my $values = {};          my $values = {};
# Line 54  sub html { Line 54  sub html {
54    
55          if ( @required ) {          if ( @required ) {
56                  $html = qq|<h1>Required params for $class</h1><form method="post">|;                  $html = qq|<h1>Required params for $class</h1><form method="post">|;
57                  foreach my $name ( @required ) {                  foreach my $attr ( @required ) {
58                            my $name = $attr->name;
59                          my $type = $name =~ m/^pass/ ? 'password' : 'text';                          my $type = $name =~ m/^pass/ ? 'password' : 'text';
60                          my $value = $values ? $values->{$name} : '';                          my $value =
61                                    $values ? $values->{$name} :
62                                    $attr->has_default ? $attr->default( $name ) :
63                                    '';
64    #warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
65                          $html .= qq|<label for="$name">$name</label><input type="$type" name="$name" value="$value">|;                          $html .= qq|<label for="$name">$name</label><input type="$type" name="$name" value="$value">|;
66                  }                  }
67                  $html .= qq|<input type="submit" value="Run $class"></form>|;                  $html .= qq|<input type="submit" value="Run $class"></form>|;
Legend:
Removed from v.284  
changed lines
  Added in v.285
  ViewVC Help
Powered by ViewVC 1.1.26