X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fsales2agent;h=0be6b43f41daeecbf4bf523c3d3292e1e68c603c;hp=e3e122a2eebaae632c837caa502c4fa5175f3fb6;hb=0549def83bcba56e53482ea0f33472e18b215649;hpb=4064388ed4466966a281e7db86a374cabe22ae8c

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