X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a5f4490ff9356e2453824fd8516c233aa6024b2e..7e2bf6ca0b5a77130cec0b01cfe263cd04f7e64d:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index e5203f737..d43e51fb1 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1507,8 +1507,9 @@ sub add_shipto {
                        shiptophone = ? AND
                        shiptofax = ? AND
                        shiptoemail = ? AND
-                       module = ?|;
-      my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values, $module);
+                       module = ? AND 
+                       trans_id = ?|;
+      my $insert_check = selectfirst_hashref_query($self, $dbh, $query, @values, $module, $id);
       if(!$insert_check){
         $query =
           qq|INSERT INTO shipto (trans_id, shiptoname, shiptodepartment_1, shiptodepartment_2,