diff options
| -rw-r--r-- | config-db/OpenSLX/ConfigDB.pm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm index 253cff9a..0429a35d 100644 --- a/config-db/OpenSLX/ConfigDB.pm +++ b/config-db/OpenSLX/ConfigDB.pm @@ -86,6 +86,7 @@ sub _checkAndUpgradeDBSchemaIfNecessary } elsif ($cmd eq 'add-columns') { $metaDB->schemaAddColumns($changeDescr->{'table'}, $changeDescr->{'new-cols'}, + $changeDescr->{'new-default-vals'}, $changeDescr->{'cols'}); } elsif ($cmd eq 'drop-columns') { $metaDB->schemaDropColumns($changeDescr->{'table'}, @@ -389,6 +390,22 @@ sub changeVendorOS return $self->{'meta-db'}->changeVendorOS($vendorOSIDs, $valRows); } +sub getNextExportCounterForVendorOS +{ + my $self = shift; + my $id = shift; + + # TODO: fix this to be resilient against parallel execution + # (use a transaction) + my $vendorOS + = $self->fetchVendorOSByID($id); + return undef unless defined $vendorOS; + my $exportCounter = $vendorOS->{export_counter}+1; + $self->changeVendorOS($id, { 'export_counter' => $exportCounter, }); + + return $exportCounter; +} + sub addExport { my $self = shift; |