diff options
author | Oliver Tappe | 2007-03-14 22:38:33 +0100 |
---|---|---|
committer | Oliver Tappe | 2007-03-14 22:38:33 +0100 |
commit | 275a583f5fad043e2fd54c2de4f1f44ec9f1ead4 (patch) | |
tree | 8e86d30f4d6c37065f3965f747392d0d30c00fc5 /installer/OpenSLX/OSExport/Engine.pm | |
parent | * added two checks around cloning in order to protect users from making bad (diff) | |
download | core-275a583f5fad043e2fd54c2de4f1f44ec9f1ead4.tar.gz core-275a583f5fad043e2fd54c2de4f1f44ec9f1ead4.tar.xz core-275a583f5fad043e2fd54c2de4f1f44ec9f1ead4.zip |
* applied several fixed to svnos-export and respective modules (as reported by Dirk)
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@772 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'installer/OpenSLX/OSExport/Engine.pm')
-rw-r--r-- | installer/OpenSLX/OSExport/Engine.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/installer/OpenSLX/OSExport/Engine.pm b/installer/OpenSLX/OSExport/Engine.pm index 085d10f7..413f5fde 100644 --- a/installer/OpenSLX/OSExport/Engine.pm +++ b/installer/OpenSLX/OSExport/Engine.pm @@ -167,6 +167,9 @@ sub addExportToConfigDB { my $self = shift; +print "adding the export to the config-DB is not implemented yet, sorry!\n"; +return; + my $configDBModule = "OpenSLX::ConfigDB"; unless (eval "require $configDBModule") { if ($! == 2) { @@ -184,6 +187,7 @@ sub addExportToConfigDB my $openslxDB = connectConfigDB(); # insert new export if it doesn't already exist in DB: my $exportName = $self->{'vendor-os-name'}; + my $export = fetchExportsByFilter( $openslxDB, { 'name' => $exportName }, 'id' ); |