From 7a78cc3d056efefb033f1caf477752d639968d8b Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 2 Oct 2008 08:20:54 +0000
Subject: [PATCH] don't show unusable options in set help

git-svn-id: https://svn.fhem.de/fhem/trunk@252 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/11_FHT.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/11_FHT.pm b/fhem/FHEM/11_FHT.pm
index b09b1930f..1feb12504 100755
--- a/fhem/FHEM/11_FHT.pm
+++ b/fhem/FHEM/11_FHT.pm
@@ -108,6 +108,7 @@ my %priority = (
 my %c2m = (0 => "auto", 1 => "manual", 2 => "holiday", 3 => "holiday_short");
 my %m2c;	# Reverse c2m
 my %c2b;	# command->button hash (reverse of codes)
+my %c2bset;	# command->button hash (settable values)
 my %defptr;
 
 my $defmin = 0;                # min fhtbuf free bytes before sending commands
@@ -123,6 +124,7 @@ FHT_Initialize($)
   foreach my $k (keys %codes) {
     my $v = $codes{$k};
     $c2b{$v} = $k;
+    $c2bset{$v} = $k if(!$cantset{$v});
   }
   foreach my $k (keys %c2m) {
     $m2c{$c2m{$k}} = $k;
@@ -169,7 +171,7 @@ FHT_Set($@)
     $allcmd .=" " if($allcmd);
     $allcmd .= $cmd;
 
-    return "Unknown argument $cmd, choose one of " . join(" ",sort keys %c2b)
+    return "Unknown argument $cmd, choose one of " . join(" ",sort keys %c2bset)
                 if(!defined($c2b{$cmd}));
     return "Readonly parameter $cmd"
                 if(defined($cantset{$cmd}));
@@ -292,7 +294,7 @@ sub
 FHT_Undef($$)
 {
   my ($hash, $name) = @_;
-  delete($defptr{$hash->{CODE}});
+  delete($defptr{$hash->{CODE}}) if($hash && $hash->{CODE});
   return undef;
 }