From 67578fdbc842e9d4a14724c90e70a4f777ec2e03 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 10 Sep 2003 21:45:36 +0000
Subject: [PATCH] communitgate pro CreateAccount examples are on crack

---
 FS/FS/part_export/communigate_pro.pm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm
index 2370e3179..6c1f2aca2 100644
--- 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 );
 
-- 
2.11.0