--- trunk/lib/Frey/Run.pm 2008/11/08 23:34:43 339
+++ trunk/lib/Frey/Run.pm 2008/11/15 23:52:22 348
@@ -68,12 +68,24 @@
foreach my $name ( @attrs ) {
my $attr = $class->meta->get_attribute( $name );
my $type = $name =~ m/^pass/ ? 'password' : 'text';
- my $value =
- $values ? $values->{$name} :
- $attr->has_default ? $attr->default( $name ) :
- '';
+ my $value = '';
+ my $value_html = '';
+ if ( ref($values) eq 'HASH' ) {
+ $value = $values->{$name};
+ } elsif ( ref($values) eq 'ARRAY' ) {
+ $value_html = qq||;
+ } else {
+ $value = $attr->default( $name ) if $attr->has_default;
+ }
+ $value_html = qq|| unless $value_html;
+
#warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
- $html .= qq||;
+ $html .= qq|| . $value_html;
}
$html .= qq||;
} else {