From 898eca2232289d3f64431bc3763da4b65bb3ae61 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Wed, 20 Jun 2007 18:04:19 +0000
Subject: * split export type into filesystem and (optional) blockdevice,
 closing   ticket#139 * code-reformatting with perltidy

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1176 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/OpenSLX/MetaDB/SQLite.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/config-db/OpenSLX/MetaDB/SQLite.pm b/config-db/OpenSLX/MetaDB/SQLite.pm
index d2b91a03..d073f305 100644
--- a/config-db/OpenSLX/MetaDB/SQLite.pm
+++ b/config-db/OpenSLX/MetaDB/SQLite.pm
@@ -51,7 +51,7 @@ sub connect
 		system("mkdir -p $dbPath") 	unless -e $dbPath;
 		$dbSpec = "dbname=$dbPath/$openslxConfig{'db-name'}";
 	}
-	vlog 1, "trying to connect to SQLite-database <$dbSpec>";
+	vlog(1, "trying to connect to SQLite-database <$dbSpec>");
 	eval ('require DBD::SQLite; 1;')
 		or die _tr(qq[%s doesn't seem to be installed,
 so there is no support for %s available, sorry!\n%s], 'DBD::SQLite', 'SQLite', $@);
@@ -70,9 +70,9 @@ sub schemaRenameTable
 	my $isSubCmd = shift;
 
 	my $dbh = $self->{'dbh'};
-	vlog 1, "renaming table <$oldTable> to <$newTable>..." unless $isSubCmd;
+	vlog(1, "renaming table <$oldTable> to <$newTable>..." unless $isSubCmd);
 	my $sql = "ALTER TABLE $oldTable RENAME TO $newTable";
-	vlog 3, $sql;
+	vlog(3, $sql);
 	$dbh->do($sql)
 		or confess _tr(q[Can't rename table <%s> (%s)], $oldTable, $dbh->errstr);
 }
@@ -88,12 +88,12 @@ sub schemaAddColumns
 
 	my $dbh = $self->{'dbh'};
 	my $newColNames = $self->_convertColDescrsToColNamesString($newColDescrs);
-	vlog 1, "adding columns <$newColNames> to table <$table>" unless $isSubCmd;
+	vlog(1, "adding columns <$newColNames> to table <$table>" unless $isSubCmd);
 	foreach my $colDescr (@$newColDescrs) {
 		my $colDescrString
 			= $self->_convertColDescrsToDBNativeString([$colDescr]);
 		my $sql = "ALTER TABLE $table ADD COLUMN $colDescrString";
-		vlog 3, $sql;
+		vlog(3, $sql);
 		$dbh->do($sql)
 			or confess _tr(q[Can't add column to table <%s> (%s)], $table,
 						   $dbh->errstr);
-- 
cgit v1.2.3-55-g7522