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/[email protected]
--
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/[email protected]
_______________________________________________
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/[email protected]
