X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FAccessRight.pm;h=56193e443729a9ad6b68a07037e05453b8a74d4f;hb=dafdfc24616b04a5ff594da31e2cdd03f58634b6;hp=01b9b58190fb9d5c16b7720aea8dfdd10af62aec;hpb=7f4aff45cd6ef2f630d538294fa9d9c4db4ac4aa;p=freeside.git diff --git a/FS/FS/AccessRight.pm b/FS/FS/AccessRight.pm index 01b9b5819..56193e443 100644 --- a/FS/FS/AccessRight.pm +++ b/FS/FS/AccessRight.pm @@ -108,13 +108,16 @@ tie my %rights, 'Tie::IxHash', 'View customer', #'View Customer | View tickets', 'Edit customer', + 'Edit customer tags', 'Edit referring customer', 'View customer history', 'Cancel customer', 'Complimentary customer', #aka users-allow_comp + 'Merge customer', { 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 }, ], ### @@ -140,6 +143,8 @@ tie my %rights, 'Tie::IxHash', 'Add on-the-fly suspend reason', #NEW 'Edit customer package invoice details', #NEW 'Edit customer package comments', #NEW + 'Qualify service', #NEW + 'Waive setup fee', #NEW ], ### @@ -148,6 +153,7 @@ tie my %rights, 'Tie::IxHash', 'Customer service rights' => [ 'View customer services', #NEW 'Provision customer service', + 'Bulk provision customer service', 'Recharge customer service', #NEW 'Unprovision customer service', 'Change customer service', #NEWNEW @@ -180,15 +186,17 @@ tie my %rights, 'Tie::IxHash', # customer payment rights ### 'Customer payment rights' => [ - 'Post payment', + 'View payments', + { rightname=>'Post payment', desc=>'Make check or cash payments.' }, + 'Post check payment', + 'Post cash payment', 'Post payment batch', 'Apply payment', #NEWNEW { rightname=>'Unapply payment', desc=>'Enable "unapplication" of unclosed payments from specific invoices.' }, #aka. unapplypayments - 'Process payment', - { rightname=>'Refund payment', desc=>'Enable refund of existing customer payments.' }, - + { rightname=>'Process payment', desc=>'Process credit card or e-check payments' }, + 'Process credit card payment', + 'Process Echeck payment', { rightname=>'Delete payment', desc=>'Enable deletion of unclosed payments. Be very careful! Only delete payments that were data-entry errors, not adjustments.' }, #aka. deletepayments Optionally specify one or more comma-separated email addresses to be notified when a payment is deleted. - ], ### @@ -199,8 +207,14 @@ tie my %rights, 'Tie::IxHash', 'Apply credit', #NEWNEW { rightname=>'Unapply credit', desc=>'Enable "unapplication" of unclosed credits.' }, #aka unapplycredits { rightname=>'Delete credit', desc=>'Enable deletion of unclosed credits. Be very careful! Only delete credits that were data-entry errors, not adjustments.' }, #aka. deletecredits Optionally specify one or more comma-separated email addresses to be notified when a credit is deleted. + 'View refunds', { rightname=>'Post refund', desc=>'Enable posting of check and cash refunds.' }, + 'Post check refund', + 'Post cash refund', # { rightname=>'Process refund', desc=>'Enable processing of generic credit card/ACH refunds (i.e. not associated with a specific prior payment).' }, + { rightname=>'Refund payment', desc=>'Enable refund of existing customer credit card or e-check payments.' }, + 'Refund credit card payment', + 'Refund Echeck payment', 'Delete refund', #NEW 'Add on-the-fly credit reason', #NEW ], @@ -249,6 +263,9 @@ tie my %rights, 'Tie::IxHash', 'Billing event reports', 'Receivables report', 'Financial reports', + { rightname=> 'List inventory', global=>1 }, + + #{ rightname => 'List customers of all agents', global=>1 }, ], ### @@ -257,9 +274,11 @@ tie my %rights, 'Tie::IxHash', 'Miscellaneous rights' => [ { rightname=>'Job queue', global=>1 }, { rightname=>'Time queue', global=>1 }, - { rightname=>'Process batches', global=>1 }, - { rightname=>'Reprocess batches', global=>1 }, - { rightname=>'Redownload resolved batches', global=>1 }, + { rightname=>'Process batches', global=>1 }, #Process payment batches + { rightname=>'Reprocess batches', global=>1 }, #Reprocess payment batches + { rightname=>'Redownload resolved batches', global=>1 }, #Redownload resolved payment batches + { rightname=>'Process invoice batches', }, + { rightname=>'Process global invoice batches', global=>1 }, { rightname=>'Import', global=>1 }, #some of these are ag-virt'ed now? give em their own ACLs { rightname=>'Export', global=>1 }, { rightname=> 'Edit rating data', desc=>'Delete CDRs', global=>1 }, @@ -284,12 +303,23 @@ tie my %rights, 'Tie::IxHash', 'Edit billing events', { rightname=>'Edit global billing events', global=>1 }, + + 'Edit templates', + { rightname=>'Edit global templates', global=>1 }, + + 'Edit inventory', + { rightname=>'Edit global inventory', global=>1 }, { rightname=>'Dialup configuration' }, { rightname=>'Dialup global configuration', global=>1 }, { rightname=>'Broadband configuration' }, { rightname=>'Broadband global configuration', global=>1 }, + + { rightname=> 'Configure network monitoring', global=>1 }, + + #{ rightname=>'Edit employees', global=>1, }, + #{ rightname=>'Edit employee groupss', global=>1, }, { rightname=>'Configuration', global=>1 }, #most of the rest of the configuraiton is not agent-virtualized @@ -333,6 +363,11 @@ sub default_superuser_rights { 'Redownload resolved batches', 'Raw SQL', 'Configuration download', + 'View customers of all agents', + 'View/link unlinked services', + 'Edit usage', + 'Credit card void', + 'Echeck void', ); no warnings 'uninitialized';