use SL::CVar;
use SL::DB::Business;
use SL::DB::Default;
+use SL::Helper::Flash;
use SL::ReportGenerator;
require "bin/mozilla/common.pl";
}
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();
- $main::lxdebug->leave_sub();
+ $::lxdebug->leave_sub;
}
sub ajax_autocomplete {