diff options
author | ivan <ivan> | 2003-09-10 21:39:23 +0000 |
---|---|---|
committer | ivan <ivan> | 2003-09-10 21:39:23 +0000 |
commit | c3c771fa7e433a429f159e2f26ccd6a531f6b0d3 (patch) | |
tree | 1bd35c7f705cc992acc58bd91b664eadb428f188 | |
parent | 6f36e2d944c1bd9ead5734bfc2e9e2685e7a2e00 (diff) |
fix for communigate pro weird data structure on create
-rw-r--r-- | FS/FS/part_export/communigate_pro.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm index 4068881e4..2370e3179 100644 --- a/FS/FS/part_export/communigate_pro.pm +++ b/FS/FS/part_export/communigate_pro.pm @@ -88,8 +88,10 @@ sub CreateAccount { my $accountType = delete $args{'accountType'}; my $externalFlag = delete $args{'externalFlag'}; $args{'AccessModes'} = [ split(' ', $args{'AccessModes'}) ]; - @args = ( accountName => $accountName, [ settings => \%args ], - accountType => $accountType, externalFlag => $externalFlag, ); + @args = ( accountName => $accountName, [ + settings => \%args, + accountType => $accountType, + externalFlag => $externalFlag, ] ); communigate_pro_command( $machine, $port, $login, $password, $method, @args ); |