X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FCsvImportReport.pm;h=5249410c8c41d5df4d592c6d5ef88a03ac6b6cb0;hb=11aeaa07186197c61dfe610d2a5c981754fd2e9d;hp=b9c34eb34ebbeaf314f2f13e4abf5715d59a1f5e;hpb=87ef5e00189e7ac23af2c3d949e4a6d3550aa7d6;p=kivitendo-erp.git

diff --git a/SL/DB/CsvImportReport.pm b/SL/DB/CsvImportReport.pm
index b9c34eb34..5249410c8 100644
--- a/SL/DB/CsvImportReport.pm
+++ b/SL/DB/CsvImportReport.pm
@@ -65,8 +65,17 @@ sub destroy {
     do_query($::form, $dbh, 'DELETE FROM csv_import_reports WHERE id = ?', $self->id);
 
     if ($self->profile_id) {
-      do_query($::form, $dbh, 'DELETE FROM csv_import_profile_settings WHERE csv_import_profile_id = ?', $self->profile_id);
-      do_query($::form, $dbh, 'DELETE FROM csv_import_profiles WHERE id = ?', $self->profile_id);
+      my ($is_profile_used_elsewhere) = selectfirst_array_query($::form, $dbh, <<SQL, $self->profile_id);
+        SELECT id
+        FROM csv_import_reports
+        WHERE profile_id = ?
+        LIMIT 1
+SQL
+
+      if (!$is_profile_used_elsewhere) {
+        do_query($::form, $dbh, 'DELETE FROM csv_import_profile_settings WHERE csv_import_profile_id = ?', $self->profile_id);
+        do_query($::form, $dbh, 'DELETE FROM csv_import_profiles WHERE id = ?', $self->profile_id);
+      }
     }
     1;
   }) or do { die SL::DB->client->error };