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 r3921,
[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
52ab232
..
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,7
+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;
@@
-81,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,
@@
-113,25
+119,28
@@
sub _export_replace {
sub _export_delete {
my( $self, $svc_external ) = (shift, shift);
sub _export_delete {
my( $self, $svc_external ) = (shift, shift);
- $self->
S
tatusChange(17, $svc_external);
+ $self->
s
tatusChange(17, $svc_external);
}
sub _export_suspend {
my( $self, $svc_external ) = (shift, shift);
}
sub _export_suspend {
my( $self, $svc_external ) = (shift, shift);
- $self->
S
tatusChange(16, $svc_external);
+ $self->
s
tatusChange(16, $svc_external);
}
sub _export_unsuspend {
my( $self, $svc_external ) = (shift, shift);
}
sub _export_unsuspend {
my( $self, $svc_external ) = (shift, shift);
- $self->
S
tatusChange(15, $svc_external);
+ $self->
s
tatusChange(15, $svc_external);
}
}
-sub
S
tatusChange {
+sub
s
tatusChange {
my( $self, $status, $svc_external ) = @_;
my( $self, $status, $svc_external ) = @_;
+ eval "use Net::Artera;";
+ return $@ if $@;
+ $Net::Artera::DEBUG = 1 if $self->option('debug');
my $artera = $self->_new_Artera;
my $artera = $self->_new_Artera;
- my $result = $artera->
S
tatusChange(
+ my $result = $artera->
s
tatusChange(
'asn' => sprintf('%010d', $svc_external->id),
'akc' => $svc_external->title,
'statusid' => $status,
'asn' => sprintf('%010d', $svc_external->id),
'akc' => $svc_external->title,
'statusid' => $status,