--- trunk/lib/Frey/Action.pm 2008/11/17 20:14:12 385 +++ trunk/lib/Frey/Action.pm 2008/11/17 22:40:22 386 @@ -4,6 +4,7 @@ with 'Frey::Web'; with 'Frey::Config'; +use Clone qw/clone/; use Data::Dump qw/dump/; =head1 DESCRIPTION @@ -44,7 +45,7 @@ $attr->is_required && $attr; } $self->class->meta->get_attribute_list; - warn "## required = ",dump( map { $_->name } @required ), " for ", $self->class; + warn "## required = ",dump( map { $_->name } @required ), " for ", $self->class if @required && $self->debug; return @required if wantarray; return \@required; } @@ -65,14 +66,15 @@ my @attrs = @{ $self->attribute_order }; @attrs = map { $a->{$_}++; $_ } @attrs; push @attrs, $_ foreach grep { ! $a->{$_} } map { $_->name } @{ $self->required }; - warn "# attributes = ",dump( @attrs ); + warn "# attributes = ",dump( @attrs ) if $self->debug; return @attrs if wantarray; return \@attrs; } =head2 params_form - my $html = $self->params_form; + my $html = $self->params_form; + my ($html,$default_params) = $self->params_form; =cut @@ -81,20 +83,23 @@ my @required = $self->required; if ( ! @required ) { warn "all params available ", dump( $self->params ), " not creating form"; + return (undef,$self->params) if wantarray; return; } else { - warn $self->class, " required params ", dump( @required ); + warn $self->class, " required params ", dump( @required ) if $self->debug; } my $class = $self->class; $self->load_class( $class ); - my $params = {}; - $params = $self->config($class); - warn "# $class config = ",dump( $params ) if $self->debug; + my $default = clone $self->params; # XXX we really don't want to modify params! - my $html = qq|
| . dump( $config_params ) . qq|
|,
+ qq|default| . dump( $default ) . qq|
|,
+ ) if $form;
+ return ($html,$default) if wantarray;
return $html;
}