FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-19 18:56:03 +00:00
Code Issues Releases Wiki Activity

Fixed weblink zooming

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1054 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-10-08 15:25:38 +00:00
parent da52dad94d
commit dcd2f96c38
1 changed files with 30 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/webfrontend/pgm2/01_FHEMWEB.pm
View File

@ -943,12 +943,16 @@ FW_logWrapper($)
pO "</div>";
} else {
pO "<div id=\"content\">";
pO "<table><tr><td>";
pO "<br>";
FW_zoomLink("cmd=$cmd;zoom=-1", "Zoom-in.png", "zoom in");
FW_zoomLink("cmd=$cmd;zoom=1", "Zoom-out.png","zoom out");
FW_zoomLink("cmd=$cmd;off=-1", "Prev.png", "prev");
FW_zoomLink("cmd=$cmd;off=1", "Next.png", "next");
pO "<table><tr><td>";
pO "<td>";
my $arg = "$FW_ME?cmd=showlog undef $d $type $file";
my $wl = "&amp;pos=" . join(";", map {"$_=$FW_pos{$_}"} keys %FW_pos);
my $arg = "$FW_ME?cmd=showlog undef $d $type $file$wl";
if(AttrVal($d,"plotmode",$FW_plotmode) eq "SVG") {
my ($w, $h) = split(",", AttrVal($d,"plotsize",$FW_plotsize));
pO "<embed src=\"$arg\" type=\"image/svg+xml\" " .
@ -962,8 +966,8 @@ FW_logWrapper($)
pH "cmd=toweblink $d:$type:$file", "Convert to weblink";
pO "</td>";
pO "</td></tr></table>";
pO "</td></tr></table>";
pO "</div>";
}
}
@ -1229,10 +1233,14 @@ FW_zoomLink($$$)
{
my ($cmd, $img, $alt) = @_;
my $prf;
$cmd =~ m/^(.*);([^;]*)$/;
($prf, $cmd) = ($1, $2) if($2);
my ($d,$off) = split("=", $cmd, 2);
my $val = $FW_pos{$d};
$cmd = ($FW_detail ? "detail=$FW_detail":"room=$FW_room") . "&amp;pos=";
$cmd = ($FW_detail ? "detail=$FW_detail":
($prf ? $prf : "room=$FW_room")) . "&amp;pos=";
if($d eq "zoom") {
@ -1283,10 +1291,10 @@ FW_calcWeblink($$)
my $pm = AttrVal($d,"plotmode",$FW_plotmode);
return if($pm eq "gnuplot");
return if(!$defs{$wl});
my $fr = AttrVal($wl, "fixedrange", undef);
my $frx;
if($defs{$wl}) {
my $fr = AttrVal($wl, "fixedrange", undef);
if($fr) {
#klaus fixed range day, week, month or year
if($fr eq "day" || $fr eq "week" || $fr eq "month" || $fr eq "year" ) {
@ -1300,6 +1308,7 @@ FW_calcWeblink($$)
return;
}
}
}
my $off = $FW_pos{$d};
$off = 0 if(!$off);