<div dir="ltr">A database row is used for defaults only if it is provided in the ‘item’ attribute. If you provide only the item_id and item_class they are used to update the row but not for defaults.<div><br></div><div>Gerda</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Mon, Oct 31, 2016 at 12:00 PM, Martin Rehak <span dir="ltr">&lt;<a href="mailto:ligi@tekkirk.org" target="_blank">ligi@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>
thanks much for comments.<br>
<br>
I know there are number of ways how/where to set/define defaults from app code<br>
and there is large text written about it in Catalyst documentation.<br>
<br>
What I would expect to work at least is that database default is going to be<br>
propagated into the form from the schema definition. I don&#39;t need to have the<br>
second place with explicit default definition when there is and implicit<br>
definition coming from db.<br>
<br>
In other words:<br>
$ script/<a href="http://reha_create.pl" rel="noreferrer" target="_blank">reha_create.pl</a> model DB DBIC::Schema reha::Schema create=static &#39;dbi:Pg:dbname=&lt;dbname&gt;;host=&lt;<wbr>host&gt;&#39; reha &lt;pass&gt;<br>
<br>
generates<br>
<span class=""><br>
=head2 capacity<br>
<br>
  data_type: &#39;integer&#39;<br>
  default_value: 1<br>
  is_nullable: 1<br>
<br>
</span>and there is the default definition successfully fetched from db. How to get it<br>
used without any override (and duplication) in the app code?<br>
<br>
Thank you very much in advance.<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.10.31%2009" value="+12016103109">2016.10.31 09</a>:23:26 +0000, LNATION . wrote:<br>
&gt; Probs incorrect approach but it&#39;ll work....<br>
&gt;<br>
&gt; before render =&gt; sub {<br>
&gt;     unless ($_[0]-&gt;field(&#39;capacity&#39;)-&gt;<wbr>value) { # mayb editing<br>
&gt;          $_[0]-&gt;field(&#39;capacity&#39;)-&gt;<wbr>value(1);<br>
&gt;     }<br>
&gt; }<br>
&gt;<br>
&gt; On Mon, Oct 31, 2016 at 8:28 AM, Marc0 &lt;<a href="mailto:catalyst@hidden-primary.net">catalyst@hidden-primary.net</a>&gt; wrote:<br>
&gt;<br>
&gt; &gt; Am 31.10.2016 um 09:15 schrieb Marc0:<br>
&gt; &gt; &gt; Am 31.10.2016 um 08:57 schrieb Martin Rehak:<br>
&gt; &gt; &gt;&gt; has_field &#39;capacity&#39; =&gt; (type =&gt; &#39;PosInteger&#39;,<br>
&gt; &gt; &gt;&gt;         #default =&gt; &#39;1&#39;,<br>
&gt; &gt; &gt;&gt;         label =&gt; &#39;Kapacita&#39;);<br>
&gt; &gt; &gt;<br>
&gt; &gt; &gt; maybe add a &quot;lazy =&gt; 1&quot; to your commented &quot;default =&gt; &#39;1&#39;&quot;?<br>
&gt; &gt; &gt;<br>
&gt; &gt; &gt; has_field q(capacity) =&gt; (<br>
&gt; &gt; &gt;     type    =&gt; q(PosInteger),<br>
&gt; &gt; &gt;     lazy    =&gt; 1,<br>
&gt; &gt; &gt;     default =&gt; q(1),<br>
&gt; &gt; &gt;     label   =&gt; q(Kapacita),<br>
&gt; &gt; &gt; );<br>
&gt; &gt;<br>
&gt; &gt; maybe &quot;capacity&quot; is explicitely set to undef, you could try an &quot;around&quot;<br>
&gt; &gt; method modifier to check for a defined value:<br>
&gt; &gt;<br>
&gt; &gt; has_field q(capacity) =&gt; (<br>
&gt; &gt;     is      =&gt; q(ro),           # just guessing<br>
&gt; &gt;     type    =&gt; q(PosInteger),<br>
&gt; &gt;     lazy    =&gt; 1,<br>
&gt; &gt;     default =&gt; q(1),<br>
&gt; &gt;     label   =&gt; q(Kapacita),<br>
&gt; &gt;     writer  =&gt; q(_set_default_capacity),<br>
&gt; &gt; );<br>
&gt; &gt;<br>
&gt; &gt; # untested, but according to Moose::Manual::MethodModifiers<br>
&gt; &gt; around q(has_field) =&gt; sub {<br>
&gt; &gt;     my $orig = shift;<br>
&gt; &gt;     my $self = shift;<br>
&gt; &gt;<br>
&gt; &gt;     # check for definedness and set to default value if<br>
&gt; &gt;     # not defined (NULL)<br>
&gt; &gt;     $self-&gt;_set_default_capacity(<wbr>1)<br>
&gt; &gt;         unless defined $self-&gt;$orig();<br>
&gt; &gt;<br>
&gt; &gt;     return $self-&gt;$orig();<br>
&gt; &gt; };<br>
&gt; &gt;<br>
&gt; &gt; Regards<br>
&gt; &gt; --<br>
&gt; &gt; Marc0<br>
&gt; &gt;<br>
&gt; &gt; ______________________________<wbr>_________________<br>
&gt; &gt; List: <a href="mailto:Catalyst@lists.scsys.co.uk">Catalyst@lists.scsys.co.uk</a><br>
&gt; &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; &gt; Searchable archive: <a href="http://www.mail-archive.com/" rel="noreferrer" target="_blank">http://www.mail-archive.com/</a><br>
&gt; &gt; <a href="http://catalyst@lists.scsys.co.uk/" rel="noreferrer" target="_blank">catalyst@lists.scsys.co.uk/</a><br>
&gt; &gt; Dev site: <a href="http://dev.catalyst.perl.org/" rel="noreferrer" target="_blank">http://dev.catalyst.perl.org/</a><br>
&gt; &gt;<br>
<br>
&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>