--- trunk/lib/Frey/Action.pm	2009/06/28 23:09:47	1102
+++ trunk/lib/Frey/Action.pm	2009/06/29 16:46:03	1108
@@ -214,7 +214,7 @@
 		grep {
 			die "$_ doesn't have meta" unless $class->can('meta');
 			! $class->meta->get_attribute($_)->is_lazy
-			&& ! defined $default->{$_}
+#			&& ! defined $default->{$_}		# XXX show fields with values
 			&& ! m{^_} # skip _private
 		} $self->attributes;
 
@@ -230,8 +230,7 @@
 	delete( $fieldset->{$_} )
 		foreach ( grep { $#{ $fieldset->{$_} } == 0 } keys %$fieldset );
 
-warn "XXX fields = ",dump( @fields );
-warn "XXX set = ",dump( $fieldset );
+	warn "# fieldset = ",dump( $fieldset );
 
 	foreach my $name ( @fields ) {
 		my $attr_type = '';
@@ -281,7 +280,10 @@
 
 #		warn "# required $name ", $class->meta->get_attribute( $name )->dump( 2 );
 
-		$label_title .= qq| class="required"| if $required->{$name};
+		if ( $required->{$name} ) {
+			$label_title .= qq| class="required"|;
+			$value_html =~ s{(<\S+)\s}{$1 class=required };
+		}
 		$label =~ s/_/ /g;
 
 		my $set = $name;
@@ -335,6 +337,10 @@
 		label.required {
 			font-weight: bold;
 		}
+		input.required,
+		select.required {
+			border-color: #c00;
+		}
 
 		br {
 			clear: left;