X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FLinkedRecords.pm;fp=SL%2FDB%2FHelper%2FLinkedRecords.pm;h=f3459ccb8db0bc3d744b690866219180724cfe84;hb=260c52c3a38dfc7d812550c6de511b0f9a106f69;hp=6dad81f2ea2a1d89436e90555343666a079705dc;hpb=8b7b7b3f6252786b38bb6c9357fc00a08750b8db;p=kivitendo-erp.git

diff --git a/SL/DB/Helper/LinkedRecords.pm b/SL/DB/Helper/LinkedRecords.pm
index 6dad81f2e..f3459ccb8 100644
--- a/SL/DB/Helper/LinkedRecords.pm
+++ b/SL/DB/Helper/LinkedRecords.pm
@@ -19,14 +19,14 @@ sub linked_records {
                           dir => delete($params{sort_dir}) );
   my $filter          =  delete $params{filter};
 
-  my $records         = linked_records_implementation($self, %params);
+  my $records         = _linked_records_implementation($self, %params);
   $records            = filter_linked_records($self, $filter, @{ $records })                       if $filter;
   $records            = sort_linked_records($self, $sort_spec{by}, $sort_spec{dir}, @{ $records }) if $sort_spec{by};
 
   return $records;
 }
 
-sub linked_records_implementation {
+sub _linked_records_implementation {
   my $self     = shift;
   my %params   = @_;
 
@@ -37,8 +37,8 @@ sub linked_records_implementation {
     my %from_to    = ( from => delete($params{from}) || $both,
                        to   => delete($params{to})   || $both);
 
-    my @records    = (@{ linked_records_implementation($self, %params, direction => 'from', from => $from_to{from}) },
-                      @{ linked_records_implementation($self, %params, direction => 'to',   to   => $from_to{to}  ) });
+    my @records    = (@{ _linked_records_implementation($self, %params, direction => 'from', from => $from_to{from}) },
+                      @{ _linked_records_implementation($self, %params, direction => 'to',   to   => $from_to{to}  ) });
 
     my %record_map = map { ( ref($_) . $_->id => $_ ) } @records;