From 504bc6bc5aeef41e2841c96ddbb4615a9dcd63d9 Mon Sep 17 00:00:00 2001
From: markusbloch <markusbloch@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 7 Oct 2013 16:10:27 +0000
Subject: [PATCH] YAMAHA_AVR: new remoteControl commands for Tuner Preset
 selection

git-svn-id: https://svn.fhem.de/fhem/trunk@4018 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED               |  2 ++
 fhem/FHEM/71_YAMAHA_AVR.pm | 23 +++++++++++++++++++++--
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index e30f04006..236e9630e 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,6 +1,8 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 
 - 2013-xx-xx (SVN)
+  - feature: YAMAHA_AVR - new remoteControl commands for Tuner Preset 
+             selection
   - feature: RSS amended (read image from pipe, scaling options, line width)
 
 - 2013-09-29 (5.5)
diff --git a/fhem/FHEM/71_YAMAHA_AVR.pm b/fhem/FHEM/71_YAMAHA_AVR.pm
index 9328d1d75..5c042883a 100755
--- a/fhem/FHEM/71_YAMAHA_AVR.pm
+++ b/fhem/FHEM/71_YAMAHA_AVR.pm
@@ -225,7 +225,7 @@ YAMAHA_AVR_Set($@)
     return "No Argument given" if(!defined($a[1]));     
     
     my $what = $a[1];
-    my $usage = "Unknown argument $what, choose one of on:noArg off:noArg volumeStraight:slider,-80,1,16 volume:slider,0,1,100 volumeUp volumeDown input:".$inputs_comma." mute:on,off remoteControl:setup,up,down,left,right,return,option,display,enter ".(defined($hash->{helper}{SCENES})?"scene:".$scenes_comma." ":"")."statusRequest:noArg";
+    my $usage = "Unknown argument $what, choose one of on:noArg off:noArg volumeStraight:slider,-80,1,16 volume:slider,0,1,100 volumeUp volumeDown input:".$inputs_comma." mute:on,off remoteControl:setup,up,down,left,right,return,option,display,tunerPresetUp,tunerPresetDown,enter ".(defined($hash->{helper}{SCENES})?"scene:".$scenes_comma." ":"")."statusRequest:noArg";
 
     # Depending on the status response, use the short or long Volume command
 
@@ -487,6 +487,14 @@ YAMAHA_AVR_Set($@)
 			{
 			    YAMAHA_AVR_SendCommand($hash,"<YAMAHA_AV cmd=\"PUT\"><$zone><List_Control><Menu_Control>Option</Menu_Control></List_Control></$zone></YAMAHA_AV>");
 			}
+			elsif($a[2] eq "tunerPresetUp")
+			{
+			    YAMAHA_AVR_SendCommand($hash,"<YAMAHA_AV cmd=\"PUT\"><Tuner><Play_Control><Preset><Preset_Sel>Up</Preset_Sel></Preset></Play_Control></Tuner></YAMAHA_AV>");
+			}
+			elsif($a[2] eq "tunerPresetDown")
+			{
+			    YAMAHA_AVR_SendCommand($hash,"<YAMAHA_AV cmd=\"PUT\"><Tuner><Play_Control><Preset><Preset_Sel>Down</Preset_Sel></Preset></Play_Control></Tuner></YAMAHA_AV>");
+			}
 			else
 			{
 			    return $usage;
@@ -1020,6 +1028,12 @@ sub YAMAHA_AVR_getInputs($)
     remoteControl option<br>
     remoteControl display<br>
     </code></ul><br><br>
+	
+	<u>Tuner Control:</u><br><br>
+	<ul><code>
+	remoteControl tunerPresetUp<br>
+	remoteControl tunerPresetDown<br>
+	</code></ul><br><br>
 
     The button names are the same as on your remote control.<br><br>
     
@@ -1208,7 +1222,12 @@ output        # only available in zones other than mainzone</code></ul><br><br>
     remoteControl option<br>
     remoteControl display<br>
     </code></ul><br><br>
-
+	
+	<u>Radio Steuerung:</u><br><br>
+	<ul><code>
+	remoteControl tunerPresetUp<br>
+	remoteControl tunerPresetDown<br>
+	</code></ul><br><br>
     Die Befehlsnamen entsprechen den Tasten auf der Fernbedienung.<br><br>
     
     Ein typisches Beispiel ist das automatische Einschalten und Abspielen eines Internet Radio Sender:<br><br>