From d1537edcb5867d7a740bb80aa538d65a35cffee0 Mon Sep 17 00:00:00 2001 From: justme1968 Date: Wed, 11 Mar 2015 13:21:46 +0000 Subject: [PATCH] 31_LightScene.pm: added rename command git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@8193 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/31_LightScene.pm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/fhem/FHEM/31_LightScene.pm b/fhem/FHEM/31_LightScene.pm index b64bdb743..8031bb668 100644 --- a/fhem/FHEM/31_LightScene.pm +++ b/fhem/FHEM/31_LightScene.pm @@ -550,15 +550,25 @@ LightScene_Set($@) if( !defined($cmd) ){ return "$name: set needs at least one parameter" }; - if( $cmd eq "?" ){ return "Unknown argument ?, choose one of remove:".join(",", sort keys %{$hash->{SCENES}}) ." save set setcmd scene:".join(",", sort keys %{$hash->{SCENES}})}; + if( $cmd eq "?" ){ return "Unknown argument ?, choose one of remove:".join(",", sort keys %{$hash->{SCENES}}) ." rename save set setcmd scene:".join(",", sort keys %{$hash->{SCENES}})}; if( $cmd eq "save" && !defined( $scene ) ) { return "Usage: set $name save " }; if( $cmd eq "scene" && !defined( $scene ) ) { return "Usage: set $name scene " }; if( $cmd eq "remove" && !defined( $scene ) ) { return "Usage: set $name remove " }; + if( $cmd eq "rename" && !defined( $scene ) ) { return "Usage: set $name rename " }; if( $cmd eq "remove" ) { delete( $hash->{SCENES}{$scene} ); return undef; + + } elsif( $cmd eq "rename" ) { + my ($new) = @a; + if( !( $new ) ) { return "Usage: set $name rename " }; + + $hash->{SCENES}{$new} = $hash->{SCENES}{$scene}; + delete( $hash->{SCENES}{$scene} ); + return undef; + } elsif( $cmd eq "set" || $cmd eq "setcmd" ) { my ($d, @args) = @a; @@ -926,6 +936,8 @@ LightScene_editTable($) {
  • remove <scene_name>
    remove <scene_name> from list of saved scenes
  • +
  • rename <scene_old_name> <scene_new_name>
    + rename <scene_old_name> to <scene_new_name>