diff options
author | Jeremy Davis <jeremyd@freeside.biz> | 2014-09-03 10:56:25 -0400 |
---|---|---|
committer | Jeremy Davis <jeremyd@freeside.biz> | 2014-09-03 10:56:25 -0400 |
commit | 77aa74141762ca5628b399dadab07bdd63120948 (patch) | |
tree | bb69d572efcf4960c19f7738b04e2a88a02f39a9 /bin | |
parent | 8898636630e25444096c4bcef012c5a31701756d (diff) |
#30315 Fixing sales2agent
Diffstat (limited to 'bin')
-rw-r--r-- | bin/sales2agent | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/bin/sales2agent b/bin/sales2agent index e3e122a..0be6b43 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 ) { |