diff options
author | Oliver Tappe | 2006-09-26 20:37:20 +0200 |
---|---|---|
committer | Oliver Tappe | 2006-09-26 20:37:20 +0200 |
commit | 09c5818eb1fd37f24d3be17e74cc0b75f3e352c8 (patch) | |
tree | b68f58f05ea5d1462dd7597a492d6408e671aee3 /config-db/OpenSLX/MetaDB/DBI.pm | |
parent | * fixed generation of client-config file, env-vars do not like spaces in init... (diff) | |
download | core-09c5818eb1fd37f24d3be17e74cc0b75f3e352c8.tar.gz core-09c5818eb1fd37f24d3be17e74cc0b75f3e352c8.tar.xz core-09c5818eb1fd37f24d3be17e74cc0b75f3e352c8.zip |
* some work on the testing script, fixed several errors on the way
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@393 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX/MetaDB/DBI.pm')
-rw-r--r-- | config-db/OpenSLX/MetaDB/DBI.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/config-db/OpenSLX/MetaDB/DBI.pm b/config-db/OpenSLX/MetaDB/DBI.pm index 9a078f06..ac8401c2 100644 --- a/config-db/OpenSLX/MetaDB/DBI.pm +++ b/config-db/OpenSLX/MetaDB/DBI.pm @@ -473,7 +473,7 @@ sub _updateRefTable # all the remaining value-IDs need to be removed: if (scalar keys %lastValueIDs) { - $self->_doDelete($table, keys %lastValueIDs, $valueCol); + $self->_doDelete($table, [ keys %lastValueIDs ], $valueCol); } } @@ -573,7 +573,7 @@ sub setGroupIDsOfSystem my $groupIDs = shift; my @currGroups = $self->fetchGroupIDsOfSystem($systemID); - $self->_updateRefTable('grop_system_ref', $systemID, $groupIDs, + $self->_updateRefTable('group_system_ref', $systemID, $groupIDs, 'system_id', 'group_id', \@currGroups); } |