diff options
author | Oliver Tappe | 2007-04-23 20:29:38 +0200 |
---|---|---|
committer | Oliver Tappe | 2007-04-23 20:29:38 +0200 |
commit | e56aaae3a4577cb2d48d1393168df5d596f3bc85 (patch) | |
tree | a2dd064cd6fc37ba3c891e01df29ac6ed8adeb37 /config-db | |
parent | * list-systems in verbose mode now shows type of export next to the name, in (diff) | |
download | core-e56aaae3a4577cb2d48d1393168df5d596f3bc85.tar.gz core-e56aaae3a4577cb2d48d1393168df5d596f3bc85.tar.xz core-e56aaae3a4577cb2d48d1393168df5d596f3bc85.zip |
* cleanup
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@918 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db')
-rw-r--r-- | config-db/OpenSLX/MetaDB/CSV.pm | 2 | ||||
-rw-r--r-- | config-db/OpenSLX/MetaDB/DBI.pm | 1 |
2 files changed, 1 insertions, 2 deletions
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; |