From 15bcdf3afa642cbbdd40f15caceb31170a982a19 Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 9 Aug 2013 13:03:04 +0000
Subject: [PATCH] use :noArg for get commands

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3642 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/34_SWAP.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/34_SWAP.pm b/fhem/FHEM/34_SWAP.pm
index 09a31be32..9e409ef10 100755
--- a/fhem/FHEM/34_SWAP.pm
+++ b/fhem/FHEM/34_SWAP.pm
@@ -564,7 +564,7 @@ SWAP_Get($@)
 
   return "\"get $name\" needs at least one parameter" if(@_ < 3);
 
-  my $list = "listUnconfirmed regList deviceXML products";
+  my $list = "listUnconfirmed:noArg regList:noArg regListAll:noArg deviceXML:noArg products:noArg";
 
   if( my $gl = $modules{$hash->{TYPE}}{SWAP_GetList} ) {
 
@@ -579,8 +579,13 @@ SWAP_Get($@)
         return $ret;
       }
     }
-
-    $list .= " " . join(" ", sort keys %{$gl});
+    
+    foreach my $cmd ( sort { $a <=> $b } keys ( %{$gl} ) ) {
+      $list .= " ";
+      $list .= $cmd;
+      $list .= ":noArg" if( !$gl->{$cmd} );
+    }
+    #$list .= " " . join(" ", sort keys %{$gl});
   }
 
   return "Unknown argument $cmd, choose one of $list" if( $cmd eq '?' );