My email coding has some syntax errors, apologies.
On Sat, Dec 10, 2016 at 4:50 PM, LNATION . <thisusedtobeanem...@gmail.com>
wrote:
> 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/
