From 7f9b83d3bdaab8581479ae98b46909130a89f2af Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 4 Feb 2010 10:00:44 +0000 Subject: add ability to edit referring customer, RT#7174 --- httemplate/edit/cust_main/top_misc.html | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'httemplate/edit') diff --git a/httemplate/edit/cust_main/top_misc.html b/httemplate/edit/cust_main/top_misc.html index 041050664..3d6c4862d 100644 --- a/httemplate/edit/cust_main/top_misc.html +++ b/httemplate/edit/cust_main/top_misc.html @@ -43,6 +43,7 @@ %if ( $cust_main->referral_custnum % and $referring_cust_main = % qsearchs('cust_main', { custnum => $cust_main->referral_custnum } ) +% and ! $curuser->access_right('Edit referring customer') %) { @@ -52,8 +53,8 @@ -% } elsif ( ! $conf->exists('disable_customer_referrals') ) { +% } elsif ( ! $conf->exists('disable_customer_referrals') ) { Referring customer @@ -61,13 +62,13 @@ <% include('/elements/search-cust_main.html', 'field_name' => 'referral_custnum', + 'curr_value' => $cust_main->referral_custnum, ) %> -% } else { - +% } else { % } @@ -92,6 +93,8 @@ my $custnum = $opt{'custnum'}; my $conf = new FS::Conf; +my $curuser = $FS::CurrentUser::CurrentUser; + my $r = qq!* !; -- cgit v1.2.1