projekt kivitendo

  my $self     = shift;

  my %params   = @_;

  if ($wanted eq 'both') {

    my $both       = delete($params{both});

               );

    my $link = SL::DB::Manager::RecordLink->find_by(and => [ %data ]);

  }

  return wantarray ? @links : $links[0];

  use SL::DB::Helper::LinkedRecords;

  # later in consumer code

  # only links to Invoices

  my @linked_objects = $order->linked_records(

    to        => 'Invoice',

  );

  # more than one target

  my @linked_objects = $order->linked_records(

    to        => [ 'Invoice', 'Order' ],

  );

  # more than one direction

  my @linked_objects = $order->linked_records(

    both      => 'Invoice',

  );

  # more than one direction and different targets

  my @linked_objects = $order->linked_records(

    to        => 'Invoice',

    from      => 'Order',

  );

    via       => 'DeliveryOrder',

  );

  # add a new link

  $order->link_to_record($invoice);

  $order->link_to_record($purchase_order, bidirectional => 1);

=item C<linked_records %params>

The optional parameter C<from> or C<to> (same as C<direction>) contains the

package names of Rose models for table limitation (the prefix C<SL::DB::> is

names in an array reference in which case all links matching any of the model

names will be returned.

The optional parameter C<via> 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

use strict;

is $link->to_id, $i->id, 'to_id';

# retrieve link

$links = $o1->linked_records(direction => 'to', to => 'Invoice');

is $links->[0]->id, $i->id, 'direct retrieve 1';

$links = $o2->linked_records(direction => 'both');

is @$links, 2, 'links without from/to get all';

# 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';

is $links->[0]->{_record_link}->to_id, $o1->id,  '_record_link from';

# check if bidi returns an array of links

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');

$sorted = SL::DB::Helper::LinkedRecords->sort_linked_records('date', 0, @records);

is_deeply $sorted, [$d, $o1, $i, $o2], 'sorting by transdate desc';

1;