diff options
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; |