From d813a1ac8f65ec635f013db595c7c406ba6c9939 Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 28 Jan 2014 19:39:52 +0000
Subject: [PATCH] fixed missing $FW_ME

git-svn-id: https://svn.fhem.de/fhem/trunk@4764 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/31_LightScene.pm    |  3 +++
 fhem/FHEM/33_readingsGroup.pm | 11 +++++++----
 2 files changed, 10 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/31_LightScene.pm b/fhem/FHEM/31_LightScene.pm
index d097025d0..253e0039d 100644
--- a/fhem/FHEM/31_LightScene.pm
+++ b/fhem/FHEM/31_LightScene.pm
@@ -9,6 +9,9 @@ use POSIX;
 #use JSON;
 #use Data::Dumper;
 
+use vars qw($FW_ME); 
+use vars qw($FW_subdir); 
+use vars qw($FW_wname); 
 use vars qw(%FW_webArgs); # all arguments specified in the GET
 
 my $LightScene_hasJSON = 1;
diff --git a/fhem/FHEM/33_readingsGroup.pm b/fhem/FHEM/33_readingsGroup.pm
index eb7c5b2d8..a1451f99b 100644
--- a/fhem/FHEM/33_readingsGroup.pm
+++ b/fhem/FHEM/33_readingsGroup.pm
@@ -23,6 +23,9 @@ package main;
 use strict;
 use warnings;
 
+use vars qw($FW_ME);
+use vars qw($FW_subdir);
+use vars qw($FW_wname);
 use vars qw(%FW_webArgs); # all arguments specified in the GET
 
 sub readingsGroup_Initialize($)
@@ -279,10 +282,10 @@ readingsGroup_2html($)
     my $ret;
     $ret .= "<table>";
     my $txt = AttrVal($d, "alias", $d);
-    $txt = "<a href=\"/fhem?detail=$d\">$txt</a>" if( $show_links );
+    $txt = "<a href=\"$FW_ME$FW_subdir?detail=$d\">$txt</a>" if( $show_links );
     $ret .= "<tr><td><div class=\"devType\">$txt</a></div></td></tr>" if( $show_heading );
     $ret .= "<tr><td><table class=\"block wide\">";
-    #$ret .= "<div class=\"devType\"><a style=\"color:#ff8888\" href=\"/fhem?detail=$d\">readingsGroup $txt is disabled.</a></div>";
+    #$ret .= "<div class=\"devType\"><a style=\"color:#ff8888\" href=\"$FW_ME$FW_subdir?detail=$d\">readingsGroup $txt is disabled.</a></div>";
     $ret .= "<td><div style=\"color:#ff8888;text-align:center\">disabled</div></td>";
     $ret .= "</table></td></tr>";
     $ret .= "</table>";
@@ -331,7 +334,7 @@ readingsGroup_2html($)
   my $ret;
   $ret .= "<table>";
   my $txt = AttrVal($d, "alias", $d);
-  $txt = "<a href=\"/fhem?detail=$d\">$txt</a>" if( $show_links );
+  $txt = "<a href=\"$FW_ME$FW_subdir?detail=$d\">$txt</a>" if( $show_links );
   $ret .= "<tr><td><div class=\"devType\">$txt</a></div></td></tr>" if( $show_heading );
   $ret .= "<tr><td><table $style class=\"block wide\">";
   $ret .= "<tr><td colspan=\"99\"><div style=\"color:#ff8888;text-align:center\">updates disabled</div></tr>" if( $disable > 0 );
@@ -494,7 +497,7 @@ readingsGroup_2html($)
           $row++;
         }
 
-        $txt = "<a href=\"/fhem?detail=$name\">$txt</a>" if( $show_links );
+        $txt = "<a href=\"$FW_ME$FW_subdir?detail=$name\">$txt</a>" if( $show_links );
         $v = "<div $value_style>$v</div>" if( $value_style && !$devStateIcon );
 
         $ret .= "<td><div $name_style class=\"dname\">$txt</div></td>" if( $first || $multi == 1 );