X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fcust_main%2Ftop_misc.html;h=41dd5636b861e012787acf5286fbf1eb01746a13;hb=5556814b7ff65b0a4837390be9331e1841189427;hp=7ce283c6c495cf1489e3a8518c2349ee6b2e1f46;hpb=f3c4966ed1f6ec3db7accd6dcdd3a5a3821d72a7;p=freeside.git
diff --git a/httemplate/edit/cust_main/top_misc.html b/httemplate/edit/cust_main/top_misc.html
index 7ce283c6c..41dd5636b 100644
--- a/httemplate/edit/cust_main/top_misc.html
+++ b/httemplate/edit/cust_main/top_misc.html
@@ -20,18 +20,72 @@
<% $cust_main->residential_commercial eq 'Commercial' ? 'CHECKED' : '' %>
>
+
% foreach my $field ($cust_main->virtual_fields) {
@@ -51,12 +105,13 @@
% $cust_main->agentnum($agentnum);
-
+
<% mt('Agent') |h %>
<% $cust_main->agent->agent |h %>
-
+
% } else {
<& /elements/tr-select-agent.html,
@@ -65,6 +120,7 @@
'empty_label' => emt('Select agent'),
'disable_empty' => ( $cust_main->agentnum ? 1 : 0 ),
'viewall_right' => emt('None'),
+ 'onchange' => 'agent_changed(this)',
&>
% }
@@ -89,6 +145,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') ) {
@@ -97,9 +158,10 @@
% } else {
- <& /elements/tr-select-part_referral.html,
- 'curr_value' => $refnum
- &>
+ <& /elements/tr-select-part_referral.html,
+ 'curr_value' => $refnum,
+ 'label' => "${r}".emt('Advertising source')." "
+ &>
% }
@@ -114,7 +176,7 @@
<% mt('Referring customer') |h %>
- <% $cust_main->referral_custnum %>: <% $referring_cust_main->name %>
+ <% $cust_main->referral_custnum %>: <% $referring_cust_main->name |h %>
@@ -201,4 +263,17 @@ 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(locationname address1 city state zip country latitude longitude district)
+ };
+}
+
%init>