From: ivan <ivan>
Date: Fri, 22 Feb 2002 05:56:48 +0000 (+0000)
Subject: fix bugs in CP mailbox changes: cp_change and cp_rename
X-Git-Tag: freeside_1_4_0pre11~20
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ce4d2cc94fed25fc3b4aa85531022ae1e6eed778

fix bugs in CP mailbox changes: cp_change and cp_rename
---

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 2f327a3d3..20db38b71 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -809,7 +809,7 @@ sub icradius_rc_replace {
 }
 
 sub cp_rename {
-  my ( $old_username, $new_username );
+  my ( $old_username, $new_username ) = @_;
 
   my $app = new Net::APP ( $cp_server,
                         User     => $cp_user,
@@ -830,7 +830,7 @@ sub cp_rename {
 }
 
 sub cp_change {
-  my ( $username, $password );
+  my ( $username, $password ) = @_;
 
   my $app = new Net::APP ( $cp_server,
                         User     => $cp_user,