X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main%2Ftop_misc.html;h=d8141b5a7cad6aaac7e4292399e64bd904b1a0b7;hb=5fa459e35a04b69cbdc6b5b938eabcbc1bac6c74;hp=a7545a045e61ece2e19da626c2999f38ec5931a3;hpb=12f4cc4b100b849de3584d5d1a2376cebcd8729f;p=freeside.git diff --git a/httemplate/edit/cust_main/top_misc.html b/httemplate/edit/cust_main/top_misc.html index a7545a045..d8141b5a7 100644 --- a/httemplate/edit/cust_main/top_misc.html +++ b/httemplate/edit/cust_main/top_misc.html @@ -1,4 +1,80 @@ -<% &ntable("#cccccc") %> + + + + + + + + + + + + +% foreach my $field ($cust_main->virtual_fields) { + <% $cust_main->pvf($field)->widget('HTML', 'edit',$cust_main->getfield($field)) %> +% } %# tags <& /elements/tr-select-cust_tag.html, @@ -13,12 +89,13 @@ % $cust_main->agentnum($agentnum); - + - + % } else { <& /elements/tr-select-agent.html, @@ -27,6 +104,7 @@ 'empty_label' => emt('Select agent'), 'disable_empty' => ( $cust_main->agentnum ? 1 : 0 ), 'viewall_right' => emt('None'), + 'onchange' => 'agent_changed(this)', &> % } @@ -51,6 +129,11 @@ 'label' => emt("Class"), &> +%#sales person +<& /elements/tr-select-sales.html, + 'curr_value' => $cust_main->salesnum, +&> + %# referral (advertising source) %my $refnum = $cust_main->refnum || $conf->config('referraldefault') || 0; %if ( $custnum && ! $conf->exists('editreferrals') ) { @@ -76,7 +159,7 @@ @@ -116,6 +199,20 @@ $cust_main->edit_subject ? 'CHECKED' : '' %>> +% } else { + +% } + +% # permission to edit +% if ( $conf->exists('cust_main-edit_calling_list_exempt') ) { + + + + +% } else { + % }
Residentialresidential_commercial eq 'Commercial' ? '' : 'CHECKED' %> + >
Commercialresidential_commercial eq 'Commercial' ? 'CHECKED' : '' %> + >
<% mt('Agent') |h %> <% $cust_main->agent->agent |h %>
<% mt('Referring customer') |h %> - <% $cust_main->referral_custnum %>: <% $referring_cust_main->name %> + <% $cust_main->referral_custnum %>: <% $referring_cust_main->name |h %>
<% mt('Can edit ticket subjects') |h %>
+ calling_list_exempt ? 'CHECKED' : '' %>><% mt('Calling list exempt') |h %>
@@ -126,10 +223,40 @@ my( $cust_main, %opt ) = @_; my $custnum = $opt{'custnum'}; +if ( $cgi->param('error') ) { + $cust_main->set('residential_commercial', + ($cgi->param('residential_commercial') eq 'Commercial') + ? 'Commercial' + : 'Residential' + ); +} elsif ( $custnum ) { #editing + $cust_main->set('residential_commercial', + length($cust_main->company) + ? 'Commercial' + : 'Residential' + ); +} else { #new customer + #config to default to commercial and/or disable residential when someone needs + $cust_main->set('residential_commercial', 'Residential'); +} + my $conf = new FS::Conf; my $curuser = $FS::CurrentUser::CurrentUser; my $r = qq!* !; +# which agents lock the service address, if any +my %ship_locked_agents; +foreach (qsearch('agent',{})) { + my $agentnum = $_->agentnum; + next unless $conf->exists('agent-ship_address', $_->agentnum); + my $cust_main = $_->agent_cust_main or next; + my $agent_ship_location = $cust_main->ship_location; + $ship_locked_agents{$agentnum} = +{ + map { $_ => $agent_ship_location->$_ } + qw(address1 city state zip country latitude longitude district) + }; +} +