From f5701b02123494f8dacbea8c5de00cf7a6edba70 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Wed, 28 May 2014 12:39:14 +0200 Subject: [PATCH] LinkedRecords: bidi Verhalten den docs angepasst und direction Parameter optional gemacht --- SL/DB/Helper/LinkedRecords.pm | 49 ++++++++++++++++++++++++----------- t/db_helper/record_links.t | 14 ++++++---- 2 files changed, 43 insertions(+), 20 deletions(-) diff --git a/SL/DB/Helper/LinkedRecords.pm b/SL/DB/Helper/LinkedRecords.pm index d072a55c7..33248bfae 100644 --- a/SL/DB/Helper/LinkedRecords.pm +++ b/SL/DB/Helper/LinkedRecords.pm @@ -30,7 +30,19 @@ sub _linked_records_implementation { my $self = shift; my %params = @_; - my $wanted = $params{direction} || croak("Missing parameter `direction'"); + my $wanted = $params{direction}; + + if (!$wanted) { + if ($params{to} && $params{from}) { + $wanted = 'both'; + } elsif ($params{to}) { + $wanted = 'to'; + } elsif ($params{from}) { + $wanted = 'from'; + } else { + $wanted = 'both'; + } + } if ($wanted eq 'both') { my $both = delete($params{both}); @@ -132,7 +144,7 @@ sub link_to_record { ); my $link = SL::DB::Manager::RecordLink->find_by(and => [ %data ]); - push @links, $link ? $link : SL::DB::RecordLink->new(%data)->save unless $link; + push @links, $link ? $link : SL::DB::RecordLink->new(%data)->save; } return wantarray ? @links : $links[0]; @@ -240,32 +252,26 @@ SYNOPSIS use SL::DB::Helper::LinkedRecords; # later in consumer code - # retrieve all links - my @linked_objects = $order->linked_records( - direction => 'both', - ); + # retrieve all links in both directions + my @linked_objects = $order->linked_records; # only links to Invoices my @linked_objects = $order->linked_records( - direction => 'to', to => 'Invoice', ); # more than one target my @linked_objects = $order->linked_records( - direction => 'to', to => [ 'Invoice', 'Order' ], ); # more than one direction my @linked_objects = $order->linked_records( - direction => 'both', both => 'Invoice', ); # more than one direction and different targets my @linked_objects = $order->linked_records( - direction => 'both', to => 'Invoice', from => 'Order', ); @@ -277,6 +283,13 @@ SYNOPSIS via => 'DeliveryOrder', ); + # limit direction when further params contain additional keys + my %params = (to => 'Invoice', from => 'Order'); + my @linked_objects = $order->linked_records( + direction => 'to', + %params, + ); + # add a new link $order->link_to_record($invoice); $order->link_to_record($purchase_order, bidirectional => 1); @@ -288,11 +301,13 @@ SYNOPSIS =item C -Retrieves records linked from or to C<$self> via the table C. The -mandatory parameter C (either C, C or C) determines -whether the function retrieves records that link to C<$self> (for C -= C) or that are linked from C<$self> (for C = C). For -C all records linked from or to C<$self> are returned. +Retrieves records linked from or to C<$self> via the table C. + +The optional parameter C (either C, C or C) +determines whether the function retrieves records that link to C<$self> (for +C = C) or that are linked from C<$self> (for C = +C). For C all records linked from or to C<$self> are +returned. The optional parameter C or C (same as C) contains the package names of Rose models for table limitation (the prefix C is @@ -300,6 +315,10 @@ optional). It can be a single model name as a single scalar or multiple model names in an array reference in which case all links matching any of the model names will be returned. +If no parameter C is given, but any of C, C or C, +then C is infered accordingly. If neither are given, C is +set to C. + The optional parameter C can be used to retrieve all documents that may have intermediate documents inbetween. It is an array reference of Rose package names for the models that may be intermediate link targets. One example is diff --git a/t/db_helper/record_links.t b/t/db_helper/record_links.t index 856277644..851f9cb5c 100644 --- a/t/db_helper/record_links.t +++ b/t/db_helper/record_links.t @@ -1,4 +1,4 @@ -use Test::More; +use Test::More tests => 43; use strict; @@ -113,6 +113,9 @@ is $link->to_table, 'ar', 'to_table'; is $link->to_id, $i->id, 'to_id'; # retrieve link +$links = $o1->linked_records; +is $links->[0]->id, $i->id, 'simple retrieve'; + $links = $o1->linked_records(direction => 'to', to => 'Invoice'); is $links->[0]->id, $i->id, 'direct retrieve 1'; @@ -186,6 +189,11 @@ is @$links, 1, 'double link is only added once 2'; $links = $o2->linked_records(direction => 'both'); is @$links, 2, 'links without from/to get all'; +# doc states you can limit with direction when giving excess params +$links = $d->linked_records(direction => 'to', to => 'Invoice', from => 'Order'); +is $links->[0]->id, $i->id, 'direction to limit params 1'; +is @$links, 1, 'direction to limit params 2'; + # doc says there will be special values set... lets see $links = $o1->linked_records(direction => 'to', to => 'Order'); is $links->[0]->{_record_link_direction}, 'to', '_record_link_direction to'; @@ -196,10 +204,8 @@ is $links->[0]->{_record_link_direction}, 'from', '_record_link_direction from' is $links->[0]->{_record_link}->to_id, $o1->id, '_record_link from'; # check if bidi returns an array of links -{ local $TODO = 'does not work as advertised'; my @links = $d->link_to_record($o2, bidirectional => 1); is @links, 2, 'bidi returns array of links in array context'; -} # via $links = $o2->linked_records(direction => 'to', to => 'Invoice', via => 'DeliveryOrder'); @@ -272,6 +278,4 @@ is_deeply $sorted, [$o2, $i, $o1, $d], 'sorting by transdate'; $sorted = SL::DB::Helper::LinkedRecords->sort_linked_records('date', 0, @records); is_deeply $sorted, [$d, $o1, $i, $o2], 'sorting by transdate desc'; -done_testing(); - 1; -- 2.20.1