and then make a role role
has default_column_spec => ( ...)
before render => sub {
while (my ($field, $default) = each %{ $_[0]->default_column_spec}{
unless ($_[0]->field($filed)->value) { # mayb editing
$_[0]->field('$field)->value($default);
}
}
}
On Sat, Dec 10, 2016 at 4:41 PM, LNATION . <thisusedtobeanem...@gmail.com>
wrote:
> maybe something like ......
>
> my $columns = $result->result_source->columns_info;
> my %default_form_spec;
> for my $name (keys %{$columns}){
> if (my $default = $columns->{$name}->{default_value}) {
> $default_form_spec{ $name } = $default;
> }
> }
>
>
>
_______________________________________________
List: Catalyst@lists.scsys.co.uk
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/catalyst@lists.scsys.co.uk/
Dev site: http://dev.catalyst.perl.org/
