From e56aaae3a4577cb2d48d1393168df5d596f3bc85 Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Mon, 23 Apr 2007 18:29:38 +0000
Subject: * cleanup

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@918 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/OpenSLX/MetaDB/CSV.pm | 2 +-
 config-db/OpenSLX/MetaDB/DBI.pm | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

(limited to 'config-db/OpenSLX/MetaDB')

diff --git a/config-db/OpenSLX/MetaDB/CSV.pm b/config-db/OpenSLX/MetaDB/CSV.pm
index 39cf13f0..b92c2665 100644
--- a/config-db/OpenSLX/MetaDB/CSV.pm
+++ b/config-db/OpenSLX/MetaDB/CSV.pm
@@ -89,7 +89,7 @@ sub generateNextIdForTable
 
 	return 1 unless defined $table;
 
-	# now fetch the next ID from a table-specific file:
+	# ...fetch the next ID from a table-specific file:
 	my $dbh = $self->{'dbh'};
 	my $idFile = "$dbh->{'f_dir'}/id-$table";
 	sysopen(IDFILE, $idFile, O_RDWR|O_CREAT)
diff --git a/config-db/OpenSLX/MetaDB/DBI.pm b/config-db/OpenSLX/MetaDB/DBI.pm
index c7646a83..9678afe4 100644
--- a/config-db/OpenSLX/MetaDB/DBI.pm
+++ b/config-db/OpenSLX/MetaDB/DBI.pm
@@ -880,7 +880,6 @@ sub schemaAddColumns
 
 	my $dbh = $self->{'dbh'};
 	my $tempTable = "${table}_temp";
-	my @colNames = $self->_convertColDescrsToColNames($colDescrs);
 	my @newColNames = $self->_convertColDescrsToColNames($newColDescrs);
 	my $newColStr = join ', ', @newColNames;
 	vlog 1, "adding columns <$newColStr> to table <$table>..." unless $isSubCmd;
-- 
cgit v1.2.3-55-g7522