Bommels05/Mozilla
Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: svn://10.0.0.236/trunk@7943 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
leif 1998-08-13 12:05:09 +00:00
parent ca9f7091d0
commit 381c9be10d
2 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mozilla/directory/perldap/ChangeLog
View File

@ -1,5 +1,7 @@
1998-08-13 Leif Hedstrom <leif@netscape.com>
* Conn.pm (update): Fixed narly bug with ldap_modify()...
* All: Cleaned up some hash indexes, to make sure they are
properly quoted, and there are no conflicts to resolve.

15
mozilla/directory/perldap/Entry.pm
View File

@ -1,5 +1,5 @@
#############################################################################
# $Id: Entry.pm,v 1.7 1998-08-13 11:02:28 leif Exp $
# $Id: Entry.pm,v 1.8 1998-08-13 12:03:01 leif Exp $
#
# The contents of this file are subject to the Mozilla Public License
# Version 1.0 (the "License"); you may not use this file except in
@ -63,13 +63,16 @@ sub STORE
return if (($val eq "") || ($attr eq ""));
@{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
unless $self->{"_${attr}_save_"};
if (defined($self->{$attr}))
{
@{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
unless $self->{"_${attr}_save_"};
}
$self->{$attr} = $val;
$self->{"_${attr}_modified_"} = 1;
# Potentially add the attribute to the OC order list.
if (($attr ne "dn") && !grep(/^\Q$attr\E$/i, @{$self->{"_oc_order_"}}))
if (($attr ne "dn") && !grep(/^$attr$/i, @{$self->{"_oc_order_"}}))
{
push(@{$self->{"_oc_order_"}}, $attr);
}
@ -217,7 +220,7 @@ sub addValue
}
}
if (defined(@{$self->{$attr}}))
if (defined($self->{$attr}))
{
@{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
unless $self->{"_${attr}_save_"};
@ -227,7 +230,7 @@ sub addValue
push(@{$self->{$attr}}, $val);
# Potentially add the attribute to the OC order list.
if (($attr ne "dn") && !grep(/^\Q$attr\E$/i, @{$self->{"_oc_order_"}}))
if (($attr ne "dn") && !grep(/^$attr$/i, @{$self->{"_oc_order_"}}))
{
push(@{$self->{"_oc_order_"}}, $attr);
}