[Ispman-cvs] ispman/lib/ISPMan UserMan.pm,1.68,1.69

[Joerg D. <jd...@us...>]

Update of /cvsroot/ispman/ispman/lib/ISPMan
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv30979/lib/ISPMan

Modified Files:
	UserMan.pm 
Log Message:
applied fixes from rel_1_4-bugfixes

Index: UserMan.pm
===================================================================
RCS file: /cvsroot/ispman/ispman/lib/ISPMan/UserMan.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -d -r1.68 -r1.69
--- UserMan.pm	13 Jan 2008 23:05:15 -0000	1.68
+++ UserMan.pm	30 Jan 2009 13:12:25 -0000	1.69
@@ -197,9 +197,10 @@
                 $domain,
                 $_userInfo->{'mailHost'},
                 "setMailboxQuota",
-                "mailbox="
-                  . $_userInfo->{'mailLocalAddress'} . "&"
-                  . "quota=$quota"
+                join("&",
+                   "mailhost=" . $_userInfo->{'mailHost'},
+                   "mailbox=" . $_userInfo->{'mailLocalAddress'},
+                   "quota=$quota")
             );
         }
 
@@ -444,8 +445,13 @@
         unless ( $quota == $userInfo->{'mailQuota'} ) {
             $data->{'mailQuota'} = $quota;
             $self->addProcessToHost(
-                $userInfo->{'ispmanDomain'}, $userInfo->{'mailHost'},
-                "setMailboxQuota",           "mailbox=$mailbox&quota=$quota"
+                $userInfo->{'ispmanDomain'},
+                $userInfo->{'mailHost'},
+                "setMailboxQuota",
+                join("&",
+                    "mailhost=" . $userInfo->{'mailHost'},
+                    "mailbox=$mailbox",
+                    "quota=$quota")
             );
         }
     }