diff options
author | Oliver Tappe | 2007-12-27 23:35:57 +0100 |
---|---|---|
committer | Oliver Tappe | 2007-12-27 23:35:57 +0100 |
commit | 230200926c8332c8b6d16e5f4146b34ed8c403bb (patch) | |
tree | a3ebbb270e815b5125028fe94072511f94d1c2b8 /config-db/OpenSLX/ConfigDB.pm | |
parent | * Changed naming scheme for exports from <vendor-os>:<type> to (diff) | |
download | core-230200926c8332c8b6d16e5f4146b34ed8c403bb.tar.gz core-230200926c8332c8b6d16e5f4146b34ed8c403bb.tar.xz core-230200926c8332c8b6d16e5f4146b34ed8c403bb.zip |
* added more tests for basic DB-features: group, global_info and
client_system_ref
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1435 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX/ConfigDB.pm')
-rw-r--r-- | config-db/OpenSLX/ConfigDB.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm index 30809b08..9030311d 100644 --- a/config-db/OpenSLX/ConfigDB.pm +++ b/config-db/OpenSLX/ConfigDB.pm @@ -1106,6 +1106,8 @@ sub changeGlobalInfo my $id = shift; my $value = shift; + return if !defined $self->{'meta-db'}->fetchGlobalInfo($id); + return $self->{'meta-db'}->changeGlobalInfo($id, $value); } @@ -1137,7 +1139,8 @@ sub addSystem foreach my $valRow (@$valRows) { if (!$valRow->{kernel}) { $valRow->{kernel} = 'vmlinuz'; - warn( + vlog( + 1, _tr( "setting kernel of system '%s' to 'vmlinuz'!", $valRow->{name} @@ -1764,6 +1767,13 @@ sub addGroup my $self = shift; my $valRows = _aref(shift); + _checkCols($valRows, 'group', qw(name)); + + foreach my $valRow (@$valRows) { + if (!defined $valRow->{priority}) { + $valRow->{priority} = '50'; + } + } return $self->{'meta-db'}->addGroup($valRows); } |