[Dbix-class] Dynamic defaults

[Benjamin Martin]

OMG!... perfect!

Thanks very much, I should have found that myself, sorry to waste your 
time.. but also thanks :)



On 29/11/11 15:17, Alexander Hartmaier wrote:
> first hit on 
> https://metacpan.org/search?q=dbix%3A%3Aclass+dynamic+default
>
> Am 2011-11-29 15:31, schrieb Benjamin Martin:
>> hello,
>>
>> I am not sure if I am doing the right thing so I ask here for advice
>> please :)
>>
>> I have 2 tables, chart and sections. A chart is made of multiple
>> sections (chart has_many sections)
>> When I add a new section to a chart I want to give it a default name
>> of 'Section 1' or 'Section 2' and so on.
>>
>> The DBIx::Class docs says that to provide defaults one should have a
>> 'new' method.
>> The Moose docs state to "never override new"
>>
>> The above makes me think I am doing the wrong thing. In my Section
>> class I have this:
>>
>>
>> around new => sub {
>>     my ($orig, $self) = (shift, shift);
>>     my ( $attrs ) = @_;
>>
>>     if ( $attrs->{chart_id} ) {
>>         my $schema = $attrs->{-result_source}->schema;
>>         my $chart = $schema->resultset('Chart')->find(
>> $attrs->{chart_id} );
>>         unless( defined $attrs->{name} ) {
>>             my $number_of_sections = $chart->sections->count;
>>             $attrs->{name} = 'Section ' . ($number_of_sections + 1);
>>         }
>>     }
>>
>>     my $new = $self->$orig($attrs);
>>     return $new;
>> };
>>
>>
>> Is there a better way to achieve this?
>> It seems some what hacky to use '-result_source' ... is there a better
>> way?
>>
>> Thanks for any advice you can give.
>>
>> tar,
>> -b
>>
>>
>>
>>
>> _______________________________________________
>> List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
>> IRC: irc.perl.org#dbix-class
>> SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
>> Searchable Archive:
>> http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk
>> -- 
>> Cheers, Alex
>
>
> *"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"* 
>
> T-Systems Austria GesmbH Rennweg 97-99, 1030 Wien
> Handelsgericht Wien, FN 79340b
> *"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"* 
>
> Notice: This e-mail contains information that is confidential and may 
> be privileged.
> If you are not the intended recipient, please notify the sender and then
> delete this e-mail immediately.
> *"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"*"* 
>
>
> _______________________________________________
> List: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/dbix-class
> IRC: irc.perl.org#dbix-class
> SVN: http://dev.catalyst.perl.org/repos/bast/DBIx-Class/
> Searchable Archive: 
> http://www.grokbase.com/group/dbix-class@lists.scsys.co.uk
>