diff options
| author | ivan <ivan> | 2009-05-03 18:34:09 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-05-03 18:34:09 +0000 |
| commit | d557c2a3bf895d17c7d9fcfa2f5fb0c99b9e989f (patch) | |
| tree | 0e127807708733e819828d2ed3386e4aa90f043a | |
| parent | 6ff3e876504bab769ebf557cb5fd90ec52dfc3e7 (diff) | |
add "Redownload resolved batches" ACL for s1, RT#4271
| -rw-r--r-- | FS/FS/AccessRight.pm | 1 | ||||
| -rwxr-xr-x | httemplate/search/cust_pay_batch.cgi | 3 |
2 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/AccessRight.pm b/FS/FS/AccessRight.pm index 93660e236..af480dfa7 100644 --- a/FS/FS/AccessRight.pm +++ b/FS/FS/AccessRight.pm @@ -221,6 +221,7 @@ tie my %rights, 'Tie::IxHash', { rightname=>'Time queue', global=>1 }, { rightname=>'Process batches', global=>1 }, { rightname=>'Reprocess batches', global=>1 }, + { rightname=>'Redownload resolved 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 }, diff --git a/httemplate/search/cust_pay_batch.cgi b/httemplate/search/cust_pay_batch.cgi index 157696366..2fceb93f8 100755 --- a/httemplate/search/cust_pay_batch.cgi +++ b/httemplate/search/cust_pay_batch.cgi @@ -132,6 +132,9 @@ if ( $pay_batch ) { || ( $pay_batch->status eq 'I' && $FS::CurrentUser::CurrentUser->access_right('Reprocess batches') ) + || ( $pay_batch->status eq 'R' + && $FS::CurrentUser::CurrentUser->access_right('Redownload resolved batches') + ) ) { $html_init .= qq!<FORM ACTION="$p/misc/download-batch.cgi" METHOD="POST">!; if ( $fixed ) { |