From 230200926c8332c8b6d16e5f4146b34ed8c403bb Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Thu, 27 Dec 2007 22:35:57 +0000
Subject: * 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
---
 config-db/OpenSLX/ConfigDB.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'config-db/OpenSLX/ConfigDB.pm')

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);
 }
 
-- 
cgit v1.2.3-55-g7522