communitgate pro CreateAccount examples are on crack

diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm
index 2370e31..6c1f2ac 100644 (file)
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -88,10 +88,11 @@ 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,
+            accountType  => $accountType,
+            externalFlag => $externalFlag,
+            settings     => \%args,
+          );
 
   communigate_pro_command( $machine, $port, $login, $password, $method, @args );