<div dir="ltr">The problem I think is when you call >new_result the default value from your database does get **populated that happens when on insert.... <br></div><div class="gmail_extra"><br><div class="gmail_quote">On Sat, Dec 10, 2016 at 5:17 PM, Martin Řehák <span dir="ltr"><<a href="mailto:rehak@tekkirk.org" target="_blank">rehak@tekkirk.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hi,<br>
<br>
I understand that there is a complicated solution. I am looking for<br>
the simplest way.<br>
<br>
Doc says:<br>
<br>
<snip><br>
For forms where you pass in an 'item' (usually a database row object),<br>
the values in that object will be used preferentially; if an accessor<br>
exists in the 'item' object, then the defaults won't be used. (If an<br>
accessor doesn't exist, the defaults *will* be used.)<br>
<br>
$form->process( item => $row, params => {} );<br>
<br>
For the above call the 'default' on the field will not be used, which is<br>
usually what you want.<br>
</snip><br>
<br>
What is the easiest way how to get defaults going from the database<br>
schema into a form, please? Is process() function able to propagate<br>
defaults from $row into $form? How to achieve that?<br>
<br>
Regards<br>
<span class="HOEnZb"><font color="#888888">--<br>
Martin<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
On <a href="tel:2016.12.10%2016" value="+12016121016">2016.12.10 16</a>:51:52 +0100, LNATION . wrote:<br>
> My email coding has some syntax errors, apologies.<br>
><br>
> On Sat, Dec 10, 2016 at 4:50 PM, LNATION . <<a href="mailto:thisusedtobeanemail@gmail.com">thisusedtobeanemail@gmail.com</a><wbr>><br>
> wrote:<br>
><br>
> > and then make a role role<br>
> ><br>
> > has default_column_spec => ( ...)<br>
> ><br>
> > before render => sub {<br>
> > while (my ($field, $default) = each %{ $_[0]->default_column_spec}{<br>
> > unless ($_[0]->field($filed)->value) { # mayb editing<br>
> > $_[0]->field('$field)->value($<wbr>default);<br>
> > }<br>
> > }<br>
> > }<br>
> ><br>
> ><br>
> > On Sat, Dec 10, 2016 at 4:41 PM, LNATION . <<a href="mailto:thisusedtobeanemail@gmail.com">thisusedtobeanemail@gmail.com</a><wbr>><br>
> > wrote:<br>
> ><br>
> >> maybe something like ......<br>
> >><br>
> >> my $columns = $result->result_source-><wbr>columns_info;<br>
> >> my %default_form_spec;<br>
> >> for my $name (keys %{$columns}){<br>
> >> if (my $default = $columns->{$name}->{default_<wbr>value}) {<br>
> >> $default_form_spec{ $name } = $default;<br>
> >> }<br>
> >> }<br>
> >><br>
> >><br>
> >><br>
> ><br>
<br>
</div></div><div class="HOEnZb"><div class="h5">> ______________________________<wbr>_________________<br>
> List: <a href="mailto:Catalyst@lists.scsys.co.uk">Catalyst@lists.scsys.co.uk</a><br>
> Listinfo: <a href="http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst" rel="noreferrer" target="_blank">http://lists.scsys.co.uk/cgi-<wbr>bin/mailman/listinfo/catalyst</a><br>
> Searchable archive: <a href="http://www.mail-archive.com/catalyst@lists.scsys.co.uk/" rel="noreferrer" target="_blank">http://www.mail-archive.com/<wbr>catalyst@lists.scsys.co.uk/</a><br>
> Dev site: <a href="http://dev.catalyst.perl.org/" rel="noreferrer" target="_blank">http://dev.catalyst.perl.org/</a><br>
<br>
<br>
______________________________<wbr>_________________<br>
List: <a href="mailto:Catalyst@lists.scsys.co.uk">Catalyst@lists.scsys.co.uk</a><br>
Listinfo: <a href="http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst" rel="noreferrer" target="_blank">http://lists.scsys.co.uk/cgi-<wbr>bin/mailman/listinfo/catalyst</a><br>
Searchable archive: <a href="http://www.mail-archive.com/catalyst@lists.scsys.co.uk/" rel="noreferrer" target="_blank">http://www.mail-archive.com/<wbr>catalyst@lists.scsys.co.uk/</a><br>
Dev site: <a href="http://dev.catalyst.perl.org/" rel="noreferrer" target="_blank">http://dev.catalyst.perl.org/</a><br>
</div></div></blockquote></div><br></div>