RT# 83179 - set agent num to use default agentnum if configured, and fixed adding contact rows

1 files changed, 13 insertions, 7 deletions

diff --git a/httemplate/edit/prospect_main.html b/httemplate/edit/prospect_main.html
index b812dc303..f0a232be1 100644
--- a/httemplate/edit/prospect_main.html
+++ b/httemplate/edit/prospect_main.html
@@ -25,17 +25,13 @@
          'type'        => 'select-agent',
          'empty_label' => 'Select agent',
          'colspan'     => 7,
+         'required'    => 1,
        },
        { 'field'       => 'refnum',
          'type'        => 'select-part_referral',
          'empty_label' => 'Select advertising source',
          'colspan'     => 7,
        },
-       { 'field'    => 'company',
-         'type'     => 'text',
-         'size'     => 50,
-         'colspan'  => 7,
-       },
        { 'field'                => 'contactnum',
          'type'                 => 'contact',
          'colspan'              => 7,
@@ -47,6 +43,11 @@
          'include_opt_callback' => sub { 'for_prospect' => 1 },
          'js_spawn_test'        => 'document.edit_topform.residential_commercial_Commercial.checked',
        },
+       { 'field'    => 'company',
+         'type'     => 'text',
+         'size'     => 50,
+         'colspan'  => 7,
+       },
        { 'field'         => 'locationnum',
          'type'          => 'select-cust_location',
          'empty_label'   => 'No address',
@@ -74,6 +75,7 @@
 
 my $curuser = $FS::CurrentUser::CurrentUser;
 my $conf = new FS::Conf;
+my @agentnums = $curuser->agentnums;
 
 my $prospectnum;
 if ( $cgi->param('error') ) {
@@ -144,6 +146,12 @@ my $new_callback = sub {
   #config to default to commercial and/or disable residential when someone needs
   $prospect_main->set('residential_commercial', 'Residential');
 
+  # config to set default agent
+  $prospect_main->agentnum( $agentnums[0] )
+    if scalar(@agentnums) == 1;
+  $prospect_main->agentnum( $conf->config('default_agentnum') )
+    if $conf->exists('default_agentnum');
+
 };
 
 my $edit_callback = sub {
@@ -206,8 +214,6 @@ my $m2_error_callback = sub {
       $cgi->param;
 };
 
-#my @agentnums = $FS::CurrentUser::CurrentUser->agentnums;
-
 my $javascript = q|
   <SCRIPT TYPE="text/javascript">
     function rescom_changed() {