diff --git a/fhem/FHEM/90_at.pm b/fhem/FHEM/90_at.pm
index 15f979731..1a773fbed 100755
--- a/fhem/FHEM/90_at.pm
+++ b/fhem/FHEM/90_at.pm
@@ -341,23 +341,22 @@ at_fhemwebFn($$$$)
my $isPerl = ($ts =~ m/^{(.*)}/);
$ts = $1 if($isPerl);
-return "
Timespec wizard:".
-"
Change Wizard:".
+"
+EOF
+
+ my $j1 = << 'EOF';
EOF
+
+ my @d = split(" ",$hash->{DEF},2);
+ LoadModule("notify");
+ my ($h2, $j2) = notfy_addFWCmd($d, $d[0], 2);
+ return "$h1$h2
$j1$j2";
}
1;
diff --git a/fhem/FHEM/91_notify.pm b/fhem/FHEM/91_notify.pm
index 707e14b58..a64e14ad6 100755
--- a/fhem/FHEM/91_notify.pm
+++ b/fhem/FHEM/91_notify.pm
@@ -220,13 +220,14 @@ notify_fhemwebFn($$$$)
my ($FW_wname, $d, $room, $pageHash) = @_; # pageHash is set for summaryFn.
my $hash = $defs{$d};
- my $ret .= "
Regexp wizard";
- my $row=0;
- $ret .= "
";
+ my $ret .= "Change wizard
";
+ my $row = 0;
my @ra = split(/\|/, $hash->{REGEXP});
+ $ret .= "Change the condition: |
";
if(@ra > 1) {
foreach my $r (@ra) {
- $ret .= "";
+ $ret .= "
";
my $cmd = "cmd.X= set $d removeRegexpPart&val.X=$r"; # =.set: avoid JS
$ret .= "$r | ";
$ret .= FW_pH("$cmd&detail=$d", "removeRegexpPart", 1,undef,1);
@@ -236,9 +237,10 @@ notify_fhemwebFn($$$$)
my @et = devspec2array("TYPE=eventTypes");
if(!@et) {
+ $ret .= "
";
$ret .= FW_pH("$FW_ME/docs/commandref.html#eventTypes",
"To add a regexp an eventTypes definition is needed",
- 1, undef, 1);
+ 1, undef, 1)."
";
} else {
my %dh;
my $etList = AnalyzeCommand(undef, "get $et[0] list");
@@ -263,9 +265,88 @@ notify_fhemwebFn($$$$)
$ret .= FW_detailSelect($d, "set", $list, "addRegexpPart");
$ret .= "";
}
- $ret .= "
";
+ my ($tr, $js) = notfy_addFWCmd($d, $hash->{REGEXP}, $row);
+ return "$ret$tr
$js";
+}
- return $ret;
+sub
+notfy_addFWCmd($$$)
+{
+ my ($d, $param, $row) = @_;
+
+ my $ret="";
+ $ret .= "".
+ " |
";
+ $ret .= "".
+ "Change the executed command: |
";
+ $ret .= "";
+
+ my @list = grep { !$defs{$_}{TEMPORARY} && $_ ne $d &&
+ $modules{$defs{$_}{TYPE}}{SetFn} } sort keys %defs;
+ $ret .= "";
+ $ret .= " $d $param set ";
+ $ret .= FW_select("modDev", "mod", \@list, undef, "set");
+ $ret .= "";
+ $ret .= "";
+ $ret .= " |
";
+
+ my $js = << 'END';
+
+END
+
+ return ($ret, $js);
}
1;
diff --git a/fhem/www/pgm2/defaultCommon.css b/fhem/www/pgm2/defaultCommon.css
index 9ba6c47c1..7d17e5654 100644
--- a/fhem/www/pgm2/defaultCommon.css
+++ b/fhem/www/pgm2/defaultCommon.css
@@ -93,8 +93,6 @@ svg.on,svg.FS20_on { fill:orange!important; }
border-color:transparent; }
.rc_button img:active { border-color: gray; }
-table#atWizard td:first-child { width: 240px; }
-
/* jQuery-UI mods */
div.ui-dialog { border:3px solid #278727; padding: 0.2em; }
div.ui-dialog div.ui-dialog-titlebar { display:none; }