I manage to go through the database from a given primary key by doing in
the controller:
...
my $pk = '1';
my $t1 = $c->model('DB')->resultset('Table1')->search({ table1id =>
$pk,},
{result_class
=> 'DBIx::Class::ResultClass::HashRefInflator',});
my $rs_t2 = $c->model('DB')->resultset('Table2')->search({
'table3s.ftable1id' => $pk ,},
{join => {
'table3s'},
result_class => 'DBIx::Class::ResultClass::HashRefInflator',});
while ( my $subrs = $rs_t2->next ) {
$subrs = $c->model('DB')->resultset('Table2')->search( {
table2id => $subrs->{table2id}, }, { } );
push @t2 , $subrs;
}
$c->stash(
t1 => [ $t1 ] ,
rst2 => \@t2
);
$c->detach($c->view("HTML"));
}
..so that's a lof of searches,
The first one is to get the info related to table1.
The second one is to get all related table2 items related to pk of
table1.
The loop create a search for each items of the second search to get
items from table4.
....keep thinking that there must be a simpler way?
Any help greatly appreciated.
Thanks
Aptina (UK) Limited, Century Court, Millennium Way, Bracknell, Berkshire, RG12
2XT. Registered in England No. 06570543.
This e-mail and any attachments contain confidential information and are solely
for the review and use of the intended recipient. If you have received this
e-mail in error, please notify the sender and destroy this e-mail and any
copies.
_______________________________________________
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]
