X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a5a42ed1bf23da4a35b675ce00781fea99df2acd..d001c791676ec85371465f557cf21e72b09319a4:/SL/DB/CsvImportReport.pm

diff --git a/SL/DB/CsvImportReport.pm b/SL/DB/CsvImportReport.pm
index 38d9e697e..5b7acd25b 100644
--- a/SL/DB/CsvImportReport.pm
+++ b/SL/DB/CsvImportReport.pm
@@ -4,8 +4,10 @@
 package SL::DB::CsvImportReport;
 
 use strict;
+use SL::DBUtils;
 
 use SL::DB::MetaSetup::CsvImportReport;
+use SL::DB::Manager::CsvImportReport;
 
 __PACKAGE__->meta->add_relationships(
   rows => {
@@ -20,7 +22,6 @@ __PACKAGE__->meta->add_relationships(
   },
 );
 
-__PACKAGE__->meta->make_manager_class;
 __PACKAGE__->meta->initialize;
 
 sub folded_rows {
@@ -63,4 +64,24 @@ sub _fold_status {
   }
 }
 
+# implementes cascade delete as per documentation
+sub destroy {
+  my ($self) = @_;
+
+  my $dbh = $self->db->dbh;
+
+  $dbh->begin_work;
+
+  do_query($::form, $dbh, 'DELETE FROM csv_import_report_status WHERE csv_import_report_id = ?', $self->id);
+  do_query($::form, $dbh, 'DELETE FROM csv_import_report_rows WHERE csv_import_report_id = ?', $self->id);
+  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);
+  }
+
+  $dbh->commit;
+}
+
 1;