projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r3880,
[freeside.git]
/
FS
/
FS
/
part_export
/
artera_turbo.pm
diff --git
a/FS/FS/part_export/artera_turbo.pm
b/FS/FS/part_export/artera_turbo.pm
index
1e22961
..
af4c790
100644
(file)
--- a/
FS/FS/part_export/artera_turbo.pm
+++ b/
FS/FS/part_export/artera_turbo.pm
@@
-18,9
+18,13
@@
tie my %options, 'Tie::IxHash',
'agent_aid' => { 'label' => 'Export agentnum values to Artera AID',
'type' => 'checkbox',
},
'agent_aid' => { 'label' => 'Export agentnum values to Artera AID',
'type' => 'checkbox',
},
+ 'aid' => { 'label' => 'Artera Agent ID to use if not using agentnum values', },
'production' => { 'label' => 'Production mode (leave unchecked for staging)',
'type' => 'checkbox',
},
'production' => { 'label' => 'Production mode (leave unchecked for staging)',
'type' => 'checkbox',
},
+ 'debug' => { 'label' => 'Enable debug logging',
+ 'type' => 'checkbox',
+ },
;
%info = (
;
%info = (
@@
-61,6
+65,7
@@
sub _export_insert {
eval "use Net::Artera;";
return $@ if $@;
eval "use Net::Artera;";
return $@ if $@;
+ $Net::Artera::DEBUG = 1 if $self->option('debug');
my $artera = $self->_new_Artera;
my $cust_pkg = $svc_external->cust_svc->cust_pkg;
my $artera = $self->_new_Artera;
my $cust_pkg = $svc_external->cust_svc->cust_pkg;
@@
-80,7
+85,9
@@
sub _export_insert {
'email' => $email,
'cname' => $cust_main->name,
'ref' => $svc_external->svcnum,
'email' => $email,
'cname' => $cust_main->name,
'ref' => $svc_external->svcnum,
- 'aid' => ( $self->option('agent_aid') ? $cust_main->agentnum : '' ),
+ 'aid' => ( $self->option('agent_aid')
+ ? $cust_main->agentnum
+ : $self->option('aid') ),
'add1' => $cust_main->address1,
'add2' => $cust_main->address2,
'add3' => $cust_main->city,
'add1' => $cust_main->address1,
'add2' => $cust_main->address2,
'add3' => $cust_main->city,
@@
-130,6
+137,7
@@
sub statusChange {
eval "use Net::Artera;";
return $@ if $@;
eval "use Net::Artera;";
return $@ if $@;
+ $Net::Artera::DEBUG = 1 if $self->option('debug');
my $artera = $self->_new_Artera;
my $result = $artera->statusChange(
my $artera = $self->_new_Artera;
my $result = $artera->statusChange(