From fa2d8d66b29628e95a8a3aad05e59cbb173f4671 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Wed, 19 Jun 2013 15:27:21 -0700 Subject: remove customer deletion --- FS/FS/AccessRight.pm | 2 -- FS/FS/Conf.pm | 7 ------- 2 files changed, 9 deletions(-) (limited to 'FS') diff --git a/FS/FS/AccessRight.pm b/FS/FS/AccessRight.pm index d7e5a17e3..3f6073e14 100644 --- a/FS/FS/AccessRight.pm +++ b/FS/FS/AccessRight.pm @@ -118,7 +118,6 @@ tie my %rights, 'Tie::IxHash', 'Complimentary customer', #aka users-allow_comp 'Merge customer', 'Merge customer across agents', - { rightname=>'Delete customer', desc=>"Enable customer deletions. Be very careful! Deleting a customer will remove all traces that this customer ever existed! It should probably only be used when auditing a legacy database. Normally, you cancel all of a customer's packages if they cancel service." }, #aka. deletecustomers 'Bill customer now', #NEW 'Bulk send customer notices', #NEW { rightname=>'View customers of all agents', global=>1 }, @@ -405,7 +404,6 @@ Most (but not all) right names. sub default_superuser_rights { my $class = shift; my %omit = map { $_=>1 } ( - 'Delete customer', 'Delete invoices', 'Delete payment', 'Delete credit', #? diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm index 982c3408d..bbd73a3d6 100644 --- a/FS/FS/Conf.pm +++ b/FS/FS/Conf.pm @@ -1065,13 +1065,6 @@ sub reason_type_options { ], }, - { - 'key' => 'deletecustomers', - 'section' => 'UI', - 'description' => 'Enable customer deletions. Be very careful! Deleting a customer will remove all traces that the customer ever existed! It should probably only be used when auditing a legacy database. Normally, you cancel all of a customers\' packages if they cancel service.', - 'type' => 'checkbox', - }, - { 'key' => 'deleteinvoices', 'section' => 'UI', -- cgit v1.2.1