--- trunk/lib/Frey/Action.pm	2009/07/02 16:53:39	1161
+++ trunk/lib/Frey/Action.pm	2009/07/02 17:49:04	1162
@@ -53,7 +53,6 @@
 	my @required = 
 		grep {
 			defined $_ && $_->can('name') &&
-			! defined( $self->params->{ $_->name } ) &&
 			! $_->is_lazy
 		}
 		map {
@@ -66,7 +65,10 @@
 
 	if ( $param eq 'as_hash' ) {
 		my $hash;
-		map { $hash->{$_}++ } @required;
+		map {
+			$hash->{$_} = 1;
+			$hash->{$_} = 0 if defined $self->params->{$_};
+		} @required;
 		return $hash;
 	}
 	return @required if wantarray;
@@ -190,7 +192,7 @@
 	}
 
 	my $required = $self->required('as_hash');
-	if ( $required ) {
+	if ( grep { $required->{$_} } keys %$required ) {
 		warn $self->class, " required params ", dump( keys %$required ) if $self->debug;
 	} else {
 		warn "all params available ", dump( $self->params ), " not creating form" if $self->debug;
@@ -286,9 +288,11 @@
 
 #		warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
 
-		if ( $required->{$name} ) {
+		if ( defined $required->{$name} ) {
 			$label_title .= qq| class="required"|;
-			$value_html =~ s{(<\S+)\s}{$1 class=required };
+			my $class = 'required';
+			   $class = 'required-filled' if ! $required->{$name};
+			$value_html =~ s{(<\S+)\s}{$1 class=$class };
 		}
 
 		my $set = $name;
@@ -347,6 +351,10 @@
 		select.required {
 			border-color: #c00;
 		}
+		input.required-filled,
+		select.required-filled {
+			border-color: #0c0;
+		}
 
 		br {
 			clear: left;