--- trunk/lib/Frey/Action.pm	2009/06/30 10:09:43	1119
+++ trunk/lib/Frey/Action.pm	2009/07/02 16:53:39	1161
@@ -1,8 +1,7 @@
 package Frey::Action;
 use Moose;
 extends 'Frey::PPI';
-with 'Frey::Web';
-with 'Frey::Config';
+with 'Frey::Web', 'Frey::Config';
 
 use Clone qw/clone/;
 use Data::Dump qw/dump/;
@@ -133,7 +132,7 @@
 	warn "# max_value_len: $max_value_len";
 	#my $render = eval $class . '->render_' . $name;
 	my $call = 'render_' . $name;
-	my $render = $self->class->$call;
+	my $render = $self->class->$call if $self->class->can($call);
 	warn "## render $@";
 
 	if ( $#values > 3 && $render !~ m{radio} ) {
@@ -177,9 +176,7 @@
 		$html = qq|<div style="display: block;">$radio</div>|;
 	}
 
-	return
-#			qq|<input type="text" name="$name">| .
-		$html
+	return $html;
 }
 
 sub params_form {
@@ -263,7 +260,8 @@
 		} elsif ( $attr->has_type_constraint && $attr->type_constraint->can('values') ) {
 			$value_html = $self->select_values( $name, $attr_type, $attr->type_constraint->values );
 		} elsif ( $class->can( $name . '_available' ) ) {
-			my $available = $class->$name . '_available';
+			my $available = $name . '_available';
+			$available = $class->$available;
 			confess $@ if $@;
 			$available =~ s/^\s+//gs;
 			$available =~ s/\s+$//gs;
@@ -292,7 +290,6 @@
 			$label_title .= qq| class="required"|;
 			$value_html =~ s{(<\S+)\s}{$1 class=required };
 		}
-		$label =~ s/_/ /g;
 
 		my $set = $name;
 		$set =~ s{_[^_]+$}{};
@@ -310,9 +307,10 @@
 					</fieldset>
 				|;
 			}
-			$label =~ s{^\Q$set\E\s+}{};
+			$label =~ s{^\Q$set\E_+}{};
 		}
 
+		$label = $self->_label( $label );
 		$form .= qq|$before<label for="$name"$label_title>$label</label>$value_html $after|;
 		my $ll = length($label);
 		$label_width = $ll if $ll > $label_width;
@@ -366,13 +364,24 @@
 	# http://www.quirksmode.org/oddsandends/forms.html
 #	$form =~ s{<([^>]+)(name=")([^"]+)(")([^>]*)>}{<$1$2$3$4 id="$3" $5}gs;
 
-	$html = qq|
-		<h1>$class params</h1>
-		<form name="$form_id" id="$form_id" method="post">
-		$form
-		<input type="submit" value="Run $class">
-		</form>
-	| if $form;
+	if ( $form ) {
+
+		if ( $self->class->can('form_header') ) {
+			$html = $self->class->form_header;
+		} else {
+			$html = qq|
+				<h1>$class params</h1>
+			|;
+		}
+
+		$html .= qq|
+			<form name="$form_id" id="$form_id" method="post">
+			$form
+			<input type="submit" value="Run $class">
+			</form>
+		|;
+		$html .= $self->class->form_footer if $self->class->can('form_footer');
+	}
 
 	$self->add_status({
 		$self->class => {
@@ -386,10 +395,24 @@
 	return $html;
 }
 
+sub _label {
+	my ($self,$name) = @_;
+	my $labels = $self->class->form_labels if $self->class->can('form_labels');
+	my $label = $labels->{$name};
+	if ( ! defined $label ) {
+		$label = $name;
+		$label =~ s{_}{ }g;
+	}
+	return $label;
+}
+
 =head1 SEE ALSO
 
 L<http://www.quirksmode.org/css/forms.html> for info on CSS2 forms
 
 =cut
 
+__PACKAGE__->meta->make_immutable;
+no Moose;
+
 1;