steffen: server/perl-kolab/Kolab-LDAP LDAP.pm,1.16,1.17

[cvs at intevation.de]

Author: steffen

Update of /kolabrepository/server/perl-kolab/Kolab-LDAP
In directory doto:/tmp/cvs-serv23400/perl-kolab/Kolab-LDAP

Modified Files:
	LDAP.pm 
Log Message:
quota in megabytes + fix for Issue295

Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- LDAP.pm	12 Aug 2004 10:55:39 -0000	1.16
+++ LDAP.pm	17 Aug 2004 11:29:23 -0000	1.17
@@ -308,7 +308,7 @@
     }
 
     my $quota = $object->get_value($Kolab::config{$p . '_field_quota'});
-    Kolab::Cyrus::setQuota($cyrus, $uid, $quota, ($p eq 'sf' ? 1 : 0));
+    Kolab::Cyrus::setQuota($cyrus, $uid, $quota*1024, ($p eq 'sf' ? 1 : 0));
 }
 
 sub createMasterLDAP {