diff options
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/elements/menu.html | 15 | ||||
| -rw-r--r-- | httemplate/graph/cust_churn.html | 2 | ||||
| -rw-r--r-- | httemplate/graph/report_cust_churn.html | 2 |
3 files changed, 13 insertions, 6 deletions
diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html index 829a78792..07dc6990c 100644 --- a/httemplate/elements/menu.html +++ b/httemplate/elements/menu.html @@ -133,9 +133,12 @@ $report_customers_lists{'with USPS-unvalidated addresses'} = [ $fsurl. 'search/c tie my %report_customers, 'Tie::IxHash'; $report_customers{'List customers'} = [ \%report_customers_lists, 'List customers' ] if $curuser->access_right('List all customers'); -$report_customers{'Zip code distribution'} = [ $fsurl. 'search/report_cust_main-zip.html', 'Zip codes by number of customers' ]; -$report_customers{'Customer signup report'} = [ $fsurl. 'graph/report_cust_signup.html', 'New customer signups by date' ]; -$report_customers{'Customer churn report'} = [ $fsurl.'graph/report_cust_churn.html', 'New customers, suspensions, and cancellations summary' ]; +$report_customers{'Zip code distribution'} = [ $fsurl. 'search/report_cust_main-zip.html', 'Zip codes by number of customers' ] + if $curuser->access_right('List zip codes'); +$report_customers{'Customer signup report'} = [ $fsurl. 'graph/report_cust_signup.html', 'New customer signups by date' ] + if $curuser->access_right('Financial reports'); +$report_customers{'Customer churn report'} = [ $fsurl.'graph/report_cust_churn.html', 'New customers, suspensions, and cancellations summary' ] + if $curuser->access_right('Customers: Customer churn report'); $report_customers{'Signup date report'} = [ $fsurl. 'graph/report_signupdate.html', 'Signup date report (by date of signup)' ]; $report_customers{'Advanced customer reports'} = [ $fsurl. 'search/report_cust_main.html', 'by status, signup date, agent, etc.' ] if $curuser->access_right('Advanced customer search'); @@ -436,7 +439,11 @@ $report_menu{'Quotations'} = [ \%report_quotations, 'Quotation reports' ] if $curuser->access_right('List quotations'); $report_menu{'Customers'} = [ \%report_customers, 'Customer reports' ] if $curuser->access_right('List customers') - || $curuser->access_right('List contacts'); + || $curuser->access_right('List contacts') + || $curuser->access_right('Advanced customer search') + || $curuser->access_right('List zip codes') + || $curuser->access_right('Financial reports') + || $curuser->access_right('Customers: Customer churn report'); $report_menu{'Invoices'} = [ \%report_invoices, 'Invoice reports' ] if $curuser->access_right('List invoices'); $report_menu{'Discounts'} = [ \%report_discounts, 'Discount reports' ] diff --git a/httemplate/graph/cust_churn.html b/httemplate/graph/cust_churn.html index 07193c776..1777b05fd 100644 --- a/httemplate/graph/cust_churn.html +++ b/httemplate/graph/cust_churn.html @@ -18,7 +18,7 @@ my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" - unless $curuser->access_right('List customers'); + unless $curuser->access_right('Customers: Customer churn report'); my( $agentnum, $agent ) = ('', ''); if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) { diff --git a/httemplate/graph/report_cust_churn.html b/httemplate/graph/report_cust_churn.html index 3f942777f..7065544dd 100644 --- a/httemplate/graph/report_cust_churn.html +++ b/httemplate/graph/report_cust_churn.html @@ -27,6 +27,6 @@ <%init> die "access denied" - unless $FS::CurrentUser::CurrentUser->access_right('List customers'); + unless $FS::CurrentUser::CurrentUser->access_right('Customers: Customer churn report'); </%init> |