division by zero Fehler bei GuV und EÜR

[mfinanz.git] / bin / mozilla / ct.pl

diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl
index 21ec1c3d8aac6c43def86226727071cf50ef010e..b525535c2fe978089a664ee99c07e7e7986f1186 100644 (file)
--- a/bin/mozilla/ct.pl
+++ b/bin/mozilla/ct.pl
@@ -51,6 +51,7 @@ use SL::CT;
 use SL::CVar;
 use SL::DB::Business;
 use SL::DB::Default;
 use SL::CVar;
 use SL::DB::Business;
 use SL::DB::Default;

+use SL::Helper::Flash;

 use SL::ReportGenerator;
 
 require "bin/mozilla/common.pl";
 use SL::ReportGenerator;
 
 require "bin/mozilla/common.pl";


@@ -730,23 +731,25 @@ sub delete_shipto {
 }
 
 sub delete_contact {
 }
 
 sub delete_contact {

-  $main::lxdebug->enter_sub();
-
-  $main::auth->assert('customer_vendor_edit');
+  $::lxdebug->enter_sub;
+  $::auth->assert('customer_vendor_edit');

 
 

-  my $form     = $main::form;
-  my %myconfig = %main::myconfig;
+  CT->get_contact(\%::myconfig, $::form);

 
 

-  CT->get_contact(\%myconfig, \%$form);
+  my $contact = SL::DB::Manager::Contact->find_by(cp_id => $::form->{cp_id});

 
 

-  unless ($form->{cp_used}) {
-    CT->delete_contact($form->{cp_id});
-    @$form{ grep /^cp_/, keys %$form } = undef;
+  if ($contact->used) {
+    $contact->detach;
+    flash('info', $::locale->text('Contact is in use and was flagged invalid.'));
+  } else {
+    $contact->delete;
+    flash('info', $::locale->text('Contact deleted.'));

   }
   }

+  delete $::form->{$_} for grep /^cp_/, keys %$::form;

 
   edit();
 
 
   edit();
 

-  $main::lxdebug->leave_sub();
+  $::lxdebug->leave_sub;

 }
 
 sub ajax_autocomplete {
 }
 
 sub ajax_autocomplete {