summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorivan <ivan>2003-09-10 22:10:19 +0000
committerivan <ivan>2003-09-10 22:10:19 +0000
commit7bf05802c8af3664bc5f59860eafded8521690b7 (patch)
tree20bef8b107347e1ffca8968b767118f6f7f65f5e
parent36a4d7c6827d4681f190c6c2b2ed4af0d61de4b0 (diff)
communigate pro quota bs
-rw-r--r--FS/FS/part_export/communigate_pro.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm
index 54a8277cb..ae20e2423 100644
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -10,15 +10,18 @@ sub rebless { shift; }
sub _export_insert {
my( $self, $svc_acct ) = (shift, shift);
- $self->communigate_pro_queue( $svc_acct->svcnum, 'CreateAccount',
+ my @options = ( $svc_acct->svcnum, 'CreateAccount',
'accountName' => $svc_acct->email,
'accountType' => $self->option('accountType'),
- 'externalFlag' => $self->option('externalFlag'),
'AccessModes' => $self->option('AccessModes'),
'RealName' => $svc_acct->finger,
- 'MaxAccountSize' => $svc_acct->quota,
'Password' => $svc_acct->_password,
);
+ push @options, 'MaxAccountSize' => $svc_acct->quota if $svc_acct->quota;
+ push @options, 'externalFlag' => $self->option('externalFlag')
+ if $self->option('externalFlag');
+
+ $self->communigate_pro_queue( @options );
}
sub _export_replace {