steffen: server/perl-kolab/Kolab-LDAP LDAP.pm,1.18,1.19

[cvs at intevation.de]

Author: steffen

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

Modified Files:
	LDAP.pm 
Log Message:
quota fix

Index: LDAP.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-LDAP/LDAP.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- LDAP.pm	20 Aug 2004 02:10:01 -0000	1.18
+++ LDAP.pm	31 Aug 2004 14:37:55 -0000	1.19
@@ -22,7 +22,7 @@
 use 5.008;
 use strict;
 use warnings;
-use Net::LDAP qw( LDAP_SUCCESS LDAP_PROTOCOL_ERROR LDAP_REFERRAL);
+use Net::LDAP qw( LDAP_SUCCESS LDAP_PROTOCOL_ERROR LDAP_REFERRAL );
 use Net::LDAPS;
 use DB_File;
 use Kolab;
@@ -308,6 +308,7 @@
     }
 
     my $quota = $object->get_value($Kolab::config{$p . '_field_quota'});
+    defined($quota) or ($quota = 0);
     Kolab::Cyrus::setQuota($cyrus, $uid, $quota*1024, ($p eq 'sf' ? 1 : 0));
 }