diff options
Diffstat (limited to 'config-db/OpenSLX/MetaDB/DBI.pm')
| -rw-r--r-- | config-db/OpenSLX/MetaDB/DBI.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/config-db/OpenSLX/MetaDB/DBI.pm b/config-db/OpenSLX/MetaDB/DBI.pm index 50c1465d..1d706d8c 100644 --- a/config-db/OpenSLX/MetaDB/DBI.pm +++ b/config-db/OpenSLX/MetaDB/DBI.pm @@ -750,7 +750,6 @@ sub addInstalledPlugin = defined $pluginAttrs->{$pluginAttrName} ? $pluginAttrs->{$pluginAttrName} : '-'; -print "$pluginAttrName: $currVal <=> $givenVal\n"; next if $currVal eq $givenVal; return if ! $self->_doUpdate( 'installed_plugin_attr', [ $attrInfo->{id} ], [ { @@ -883,7 +882,13 @@ sub setSystemAttrs value => $attrs->{$_}, } } - grep { defined $attrs->{$_} } + grep { + # Write undefined attributes for the default system, such that + # it shows all existing attributes. All other systems never + # write undefined attributes (if they have not defined a + # specific attribute, it is inherited from "above"). + $systemID == 0 || defined $attrs->{$_} + } keys %$attrs; $self->_doInsert('system_attr', \@attrData); return 1; |