X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/02a569152e91ec064bb3d4ccc46564b25dc6b930..f203aa21ad0ff71285b354e5565b7a0ba275dc88:/SL/DB/Helper/LinkedRecords.pm

diff --git a/SL/DB/Helper/LinkedRecords.pm b/SL/DB/Helper/LinkedRecords.pm
index 05f29a540..c1d31338b 100644
--- a/SL/DB/Helper/LinkedRecords.pm
+++ b/SL/DB/Helper/LinkedRecords.pm
@@ -14,7 +14,7 @@ sub linked_records {
   my %params   = @_;
 
   my $wanted   = $params{direction} || croak("Missing parameter `direction'");
-  my $myself   = $wanted eq 'from' ? 'to' : 'from';
+  my $myself   = $wanted eq 'from' ? 'to' : $wanted eq 'to' ? 'from' : croak("Invalid parameter `direction'");
 
   my $my_table = SL::DB::Helpers::Mappings::get_table_for_package(ref($self));