Unsinniges doppeltes Durchsuchen von Tabellen.

diff --git a/SL/IC.pm b/SL/IC.pm
index fece79579b246e721289195d3a1c279450bae71f..67d38d72dc089a3b1beded7d4f6deb8a6896d9e5 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});