diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-06-02 14:22:24 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-06-02 14:22:24 -0700 |
commit | d8e13cab5be7de84da8fa8bb61f89c3edb4c5ef7 (patch) | |
tree | f1e49f7edf2e978b635dce69e1e9dce913789563 /FS/FS/cust_main.pm | |
parent | 67438dccad6bd9a800f6ab6a179aaad1598eae3a (diff) |
separate ACL for editing customer invoice terms, RT#75759
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r-- | FS/FS/cust_main.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index 5956314..d11fdad 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -377,6 +377,10 @@ sub insert { join(', ', map { "$_: $options{$_}" } keys %options ). "\n" if $DEBUG; + return "You are not permitted to change customer invoicing terms." + if $self->invoice_terms #i.e. not the default + && ! $FS::CurrentUser::CurrentUser->access_right('Edit customer invoice terms'); + local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; local $SIG{QUIT} = 'IGNORE'; @@ -1382,6 +1386,10 @@ sub replace { && ! $self->locale && $conf->exists('cust_main-require_locale'); + return "You are not permitted to change customer invoicing terms." + if $old->invoice_terms ne $self->invoice_terms + && ! $curuser->access_right('Edit customer invoice terms'); + local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; local $SIG{QUIT} = 'IGNORE'; |