Unsinniges doppeltes Durchsuchen von Tabellen.

diff --git a/SL/IC.pm b/SL/IC.pm
index fece795..67d38d7 100644 (file)
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -210,7 +210,7 @@ sub get_part {
   $sth->finish;
 
   # is it an orphan
-  my @referencing_tables = qw(invoice orderitems invoice inventory rmaitems);
+  my @referencing_tables = qw(invoice orderitems inventory rmaitems);
   my %column_map         = ( );
   my $parts_id           = conv_i($form->{id});