X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9d208f8e3effbecf0427f855a1d0b4473016cc39..adb94488f93673b5b8775bf07cfc453c5c3e2973:/bin/mozilla/ct.pl diff --git a/bin/mozilla/ct.pl b/bin/mozilla/ct.pl index 5a579e92a..3cafbd93f 100644 --- a/bin/mozilla/ct.pl +++ b/bin/mozilla/ct.pl @@ -743,7 +743,7 @@ sub delete_contact { my $contact = SL::DB::Manager::Contact->find_by(cp_id => $::form->{cp_id}); if ($contact->used) { - $contact->detach; + $contact->detach->save; flash('info', $::locale->text('Contact is in use and was flagged invalid.')); } else { $contact->delete;