diff options
| author | Oliver Tappe | 2008-01-07 16:43:52 +0100 |
|---|---|---|
| committer | Oliver Tappe | 2008-01-07 16:43:52 +0100 |
| commit | e8a90853c2079e3da04b0f130846c535571fd0fa (patch) | |
| tree | 0aef4a487136cc9113fbed7d9a5f0db58ab189c0 /config-db/OpenSLX/ConfigDB.pm | |
| parent | * changed (and hopefully improved) fix for locale-problems that (diff) | |
| download | core-e8a90853c2079e3da04b0f130846c535571fd0fa.tar.gz core-e8a90853c2079e3da04b0f130846c535571fd0fa.tar.xz core-e8a90853c2079e3da04b0f130846c535571fd0fa.zip | |
* fixed several smaller bugs found when testing slxexport
git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1446 95ad53e4-c205-0410-b2fa-d234c58c8868
Diffstat (limited to 'config-db/OpenSLX/ConfigDB.pm')
| -rw-r--r-- | config-db/OpenSLX/ConfigDB.pm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/config-db/OpenSLX/ConfigDB.pm b/config-db/OpenSLX/ConfigDB.pm index 8269ec0c..0879ba02 100644 --- a/config-db/OpenSLX/ConfigDB.pm +++ b/config-db/OpenSLX/ConfigDB.pm @@ -967,7 +967,8 @@ sub addVendorOS _checkCols($valRows, 'vendor_os', 'name'); - return $self->{'meta-db'}->addVendorOS($valRows); + my @IDs = $self->{'meta-db'}->addVendorOS($valRows); + return wantarray() ? @IDs : $IDs[0]; } =item C<removeVendorOS(@$vendorOSIDs)> @@ -1052,7 +1053,8 @@ sub addExport _checkCols($valRows, 'export', qw(name vendor_os_id type)); - return $self->{'meta-db'}->addExport($valRows); + my @IDs = $self->{'meta-db'}->addExport($valRows); + return wantarray() ? @IDs : $IDs[0]; } =item C<removeExport(@$exportIDs)> @@ -1221,7 +1223,8 @@ sub addSystem } } - return $self->{'meta-db'}->addSystem($valRows, $attrValRows); + my @IDs = $self->{'meta-db'}->addSystem($valRows, $attrValRows); + return wantarray() ? @IDs : $IDs[0]; } =item C<removeSystem(@$systemIDs)> @@ -1580,7 +1583,8 @@ sub addClient } } - return $self->{'meta-db'}->addClient($valRows, $attrValRows); + my @IDs = $self->{'meta-db'}->addClient($valRows, $attrValRows); + return wantarray() ? @IDs : $IDs[0]; } =item C<removeClient(@$clientIDs)> @@ -1932,7 +1936,8 @@ sub addGroup $valRow->{priority} = '50'; } } - return $self->{'meta-db'}->addGroup($valRows, $attrValRows); + my @IDs = $self->{'meta-db'}->addGroup($valRows, $attrValRows); + return wantarray() ? @IDs : $IDs[0]; } =item C<removeGroup(@$groupIDs)> |