--- trunk/lib/Frey/Run.pm 2008/11/08 23:01:45 335 +++ trunk/lib/Frey/Run.pm 2008/11/08 23:03:35 336 @@ -59,7 +59,13 @@ if ( @required ) { $html = qq|

$class params

|; - foreach my $name ( $self->attribute_order ) { + + my $a; + my @attrs = map { $a->{$_}++; $_ } $self->attribute_order; + push @attrs, $_ foreach grep { ! $a->{$_} } map { $_->name } @required; + warn "# attrs = ",dump( @attrs ); + + foreach my $name ( @attrs ) { my $attr = $class->meta->get_attribute( $name ); my $type = $name =~ m/^pass/ ? 'password' : 'text'; my $value =