--- trunk/lib/Frey/Action.pm	2008/11/19 01:56:12	440
+++ trunk/lib/Frey/Action.pm	2008/11/20 10:50:28	469
@@ -38,7 +38,9 @@
 	$self->load_class( $self->class );
 	my @required = 
 		grep {
-			defined $_ && $_->can('name') && !defined( $self->params->{ $_->name } )
+			defined $_ && $_->can('name') &&
+			! defined( $self->params->{ $_->name } ) &&
+			! $_->is_lazy
 		}
 		map {
 			my $attr = $self->class->meta->get_attribute($_);
@@ -135,18 +137,19 @@
 			warn "wired attribute $name";
 		}
 
-		$value_html = qq|<input type="$type" name="$name" title="$attr_type" value="$value">| unless $value_html;
-
 		$default->{$name} = $value unless defined $default->{$name};
 
+		$value_html = qq|<input type="$type" name="$name" title="$attr_type" value="$value">| unless $value_html;
+
 #		warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
 		$form .= qq|<label for="$name"$label_title>$label</label>| . $value_html;
 	}
 	my $html = qq|<h1>$class params</h1><form method="post">$form<input type="submit" value="Run $class"></form>|;
-	push @{ $self->status }, { 'Params' =>
-		{
-			'Config'  => $config_params,
-			'Default' => $default
+	push @{ $self->status }, {
+		$self->class => {
+			params  => $self->params,
+			config_params  => $config_params,
+			default => $default
 		},
 	};