From: Jeremy Davis <jeremyd@freeside.biz>
Date: Wed, 3 Sep 2014 14:58:03 +0000 (-0400)
Subject: #30315 Fixing sales2agent
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=8731ef01707d23cc5c17ae1e5364ff2c8e4ab261

#30315 Fixing sales2agent
---

diff --git a/bin/sales2agent b/bin/sales2agent
index e3e122a2e..0be6b43f4 100644
--- a/bin/sales2agent
+++ b/bin/sales2agent
@@ -2,12 +2,17 @@
 
 use FS::UID qw(adminsuidsetup dbh);
 use FS::Record qw(qsearch);
+use Getopt::Std;
+use vars qw($opt_t);
 use FS::sales;
 use FS::agent;
 use FS::access_group;
 use FS::access_groupagent;
 use FS::cust_main;
 
+# -t passes through the typenum in agent_type
+getopts('t:');
+
 adminsuidsetup shift or die &usage;
 
 $FS::UID::AutoCommit = 0;
@@ -19,6 +24,7 @@ foreach my $sales (@sales) {
   my $agent = new FS::agent {
     'agent'         => $sales->salesperson,
     'agent_custnum' => $sales->sales_custnum,
+    'typenum'       => $opt_t,
   };
   my $error = $agent->insert;
   if ( $error ) {