<div dir="ltr">The problem I think is when you call &gt;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">&lt;<a href="mailto:rehak@tekkirk.org" target="_blank">rehak@tekkirk.org</a>&gt;</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>
&lt;snip&gt;<br>
For forms where you pass in an &#39;item&#39; (usually a database row object),<br>
the values in that object will be used preferentially; if an accessor<br>
exists in the &#39;item&#39; object, then the defaults won&#39;t be used. (If an<br>
accessor doesn&#39;t exist, the defaults *will* be used.)<br>
<br>
$form-&gt;process( item =&gt; $row, params =&gt; {} );<br>
<br>
For the above call the &#39;default&#39; on the field will not be used, which is<br>
usually what you want.<br>
&lt;/snip&gt;<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>
&gt; My email coding has some syntax errors, apologies.<br>
&gt;<br>
&gt; On Sat, Dec 10, 2016 at 4:50 PM, LNATION . &lt;<a href="mailto:thisusedtobeanemail@gmail.com">thisusedtobeanemail@gmail.com</a><wbr>&gt;<br>
&gt; wrote:<br>
&gt;<br>
&gt; &gt; and then make a role role<br>
&gt; &gt;<br>
&gt; &gt; has default_column_spec =&gt; ( ...)<br>
&gt; &gt;<br>
&gt; &gt; before render =&gt; sub {<br>
&gt; &gt;       while (my ($field, $default) = each %{ $_[0]-&gt;default_column_spec}{<br>
&gt; &gt;           unless ($_[0]-&gt;field($filed)-&gt;value) { # mayb editing<br>
&gt; &gt;                 $_[0]-&gt;field(&#39;$field)-&gt;value($<wbr>default);<br>
&gt; &gt;            }<br>
&gt; &gt;       }<br>
&gt; &gt; }<br>
&gt; &gt;<br>
&gt; &gt;<br>
&gt; &gt; On Sat, Dec 10, 2016 at 4:41 PM, LNATION . &lt;<a href="mailto:thisusedtobeanemail@gmail.com">thisusedtobeanemail@gmail.com</a><wbr>&gt;<br>
&gt; &gt; wrote:<br>
&gt; &gt;<br>
&gt; &gt;&gt; maybe something like ......<br>
&gt; &gt;&gt;<br>
&gt; &gt;&gt;     my $columns = $result-&gt;result_source-&gt;<wbr>columns_info;<br>
&gt; &gt;&gt;     my %default_form_spec;<br>
&gt; &gt;&gt;     for my $name (keys %{$columns}){<br>
&gt; &gt;&gt;          if (my $default = $columns-&gt;{$name}-&gt;{default_<wbr>value}) {<br>
&gt; &gt;&gt;              $default_form_spec{  $name } = $default;<br>
&gt; &gt;&gt;          }<br>
&gt; &gt;&gt;     }<br>
&gt; &gt;&gt;<br>
&gt; &gt;&gt;<br>
&gt; &gt;&gt;<br>
&gt; &gt;<br>
<br>
</div></div><div class="HOEnZb"><div class="h5">&gt; ______________________________<wbr>_________________<br>
&gt; List: <a href="mailto:Catalyst@lists.scsys.co.uk">Catalyst@lists.scsys.co.uk</a><br>
&gt; 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>
&gt; 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>
&gt; 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>