delete invoices, RT#4048

[freeside.git] / FS / FS / AccessRight.pm

diff --git a/FS/FS/AccessRight.pm b/FS/FS/AccessRight.pm
index 856a5f5..e90687d 100644 (file)
--- a/FS/FS/AccessRight.pm
+++ b/FS/FS/AccessRight.pm
@@ -139,6 +139,7 @@ assigned to users and/or groups.
 ###
   'View invoices',
   'Resend invoices', #NEWNEW
+  'Delete invoices', #new, but no need to phase in
   'View customer tax exemptions', #yow
   'View customer batched payments', #NEW
 
@@ -216,3 +217,19 @@ sub rights {
   @rights;
 }
 
+sub default_superuser_rights {
+  my $class = shift;
+  my %omit = map { $_=>1 } (
+    'Delete customer',
+    'Delete invoices',
+    'Delete payment',
+    'Delete credit', #?
+    'Delete refund', #?
+    'Raw SQL',
+  );
+
+  no warnings 'uninitialized';
+  grep { ! $omit{$_} } $class->rights;
+}
+
+1;