set initial password for new accounts

[freeside.git] / FS / FS / part_export / communigate_pro.pm

diff --git a/FS/FS/part_export/communigate_pro.pm b/FS/FS/part_export/communigate_pro.pm
index bce7f30..4068881 100644 (file)
--- a/FS/FS/part_export/communigate_pro.pm
+++ b/FS/FS/part_export/communigate_pro.pm
@@ -17,6 +17,7 @@ sub _export_insert {
     'AccessModes'    => $self->option('AccessModes'),
     'RealName'       => $svc_acct->finger,
     'MaxAccountSize' => $svc_acct->quota,
+    'Password'       => $svc_acct->_password,
   );
 }
 
@@ -108,6 +109,6 @@ sub communigate_pro_command { #subroutine, not method
 
   $cli->$method(@args) or die "CGPro error: ". $cli->getErrMessage;
 
-  $cli->Logout or die "Can't logout of CGPro: $CGP:ERR_STRING\n";
+  $cli->Logout or die "Can't logout of CGPro: $CGP::ERR_STRING\n";
 
 }