From 8731ef01707d23cc5c17ae1e5364ff2c8e4ab261 Mon Sep 17 00:00:00 2001
From: Jeremy Davis <jeremyd@freeside.biz>
Date: Wed, 3 Sep 2014 10:58:03 -0400
Subject: [PATCH] #30315 Fixing sales2agent

---
 bin/sales2agent | 6 ++++++
 1 file changed, 6 insertions(+)

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 ) {
-- 
2.11.0