diff options
| author | Oliver Tappe | 2008-05-24 13:49:14 +0200 |
|---|---|---|
| committer | Oliver Tappe | 2008-05-24 13:49:14 +0200 |
| commit | 20603dbfc29d57454174691b43fc497d964d785e (patch) | |
| tree | b14cef7928f63a456fae3a6d09d6c506cacfc4ff /config-db | |
| parent | * changed warning indicator from '°°°' to '! ' in order to avoid possible... (diff) | |
| download | core-20603dbfc29d57454174691b43fc497d964d785e.tar.gz core-20603dbfc29d57454174691b43fc497d964d785e.tar.xz core-20603dbfc29d57454174691b43fc497d964d785e.zip | |
* fixed bug introduced recently that would cause attributes of default system to
never be removed (which in turn messes up the automatic synchronization of attributes
into the default system)
git-svn-id: http://svn.openslx.org/svn/openslx/openslx/trunk@1787 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/DBI.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/config-db/OpenSLX/MetaDB/DBI.pm b/config-db/OpenSLX/MetaDB/DBI.pm index 23b061d7..271463b5 100644 --- a/config-db/OpenSLX/MetaDB/DBI.pm +++ b/config-db/OpenSLX/MetaDB/DBI.pm @@ -889,7 +889,9 @@ sub setSystemAttrs $valueIsOK->($newAttrs->{$_}) && !exists $oldAttrs{$_} } keys %$newAttrs; my @attrsToBeDeleted - = grep { !$valueIsOK->($newAttrs->{$_}) } keys %oldAttrs; + = grep { + !exists $newAttrs->{$_} || !$valueIsOK->($newAttrs->{$_}) + } keys %oldAttrs; my @attrsToBeUpdated = grep { $valueIsOK->($newAttrs->{$_}) && exists $oldAttrs{$_} |