From e1693794c5b8855296512e9a59df4db2524965ad Mon Sep 17 00:00:00 2001
From: Oliver Tappe
Date: Sun, 1 Jul 2007 20:32:28 +0000
Subject: * verbose-mode is now activated automatically if you request the
 listing   of some type and pass in specific arguments

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1208 95ad53e4-c205-0410-b2fa-d234c58c8868
---
 config-db/slxconfig | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'config-db/slxconfig')

diff --git a/config-db/slxconfig b/config-db/slxconfig
index 07ff6473..12b373e6 100755
--- a/config-db/slxconfig
+++ b/config-db/slxconfig
@@ -165,6 +165,8 @@ sub listClients
 		  @{$DbSchema->{tables}->{client}};
 
     my $clientData = parseKeyValueArgs(\@clientKeys, 'client', @_);
+    # set verbose mode if any params have been passed in:
+    $verbose = 1 if %$clientData;
 
 	dumpElements(
 		'client', undef,
@@ -189,6 +191,8 @@ sub listExports
 		  @{$DbSchema->{tables}->{export}};
 
     my $exportData = parseKeyValueArgs(\@exportKeys, 'export', @_);
+    # set verbose mode if any params have been passed in:
+    $verbose = 1 if %$exportData;
 
 	dumpElements(
 		'export',
@@ -215,6 +219,8 @@ sub listSystems
 		  @{$DbSchema->{tables}->{system}};
 
     my $systemData = parseKeyValueArgs(\@systemKeys, 'system', @_);
+    # set verbose mode if any params have been passed in:
+    $verbose = 1 if %$systemData;
 
 	dumpElements(
 		'system', undef,
@@ -243,6 +249,8 @@ sub listVendorOSes
 		  @{$DbSchema->{tables}->{vendor_os}};
 
     my $vendorOSData = parseKeyValueArgs(\@vendorOSKeys, 'vendor_os', @_);
+    # set verbose mode if any params have been passed in:
+    $verbose = 1 if %$vendorOSData;
 
 	dumpElements('vendor-OS', undef,
 				 sort { $a->{name} cmp $b->{name} }
-- 
cgit v1.2.3-55-g7522