\n";
@@ -673,7 +697,7 @@ sub Dashboard_BuildDashboardCenterRow ($$$$$$) {
my $currentcol = $colcount;
my $maxcolindex = $colcount - 1;
- my $replace = "t" . $t . "c" . $maxcolindex . ",";
+ my $replace = "t".$t."c".$maxcolindex.",";
# replace all sortings referencing not existing columns
# this does only work if there is no empty column inbetween
@@ -684,9 +708,9 @@ sub Dashboard_BuildDashboardCenterRow ($$$$$$) {
}
for (my $i=0;$i<$colcount;$i++){
- $ret .= "
\n";
@@ -1030,7 +1055,8 @@ sub Dashboard_GetActiveTab ($;$) {
if (defined($FW_httpheader{Cookie})) {
Log3 ($name, 4, "Dashboard $name - Cookie set: ".$FW_httpheader{Cookie});
- my %cookie = map({ split('=', $_) } split(/; */, $FW_httpheader{Cookie}));
+ my %cookie = map({ $_!~/^.*=$/ ? split('=', $_) : "" } split(/; */, $FW_httpheader{Cookie})); # 10.02.2020, Forum: https://forum.fhem.de/index.php/topic,16503.msg1023004.html#msg1023004
+ # my %cookie = map({ split('=', $_) } split(/; */, $FW_httpheader{Cookie}));
if (defined($cookie{dashboard_activetab})) {
$activeTab = $cookie{dashboard_activetab};
$activeTab = ($activeTab <= $maxTab)?$activeTab:$maxTab;
@@ -1081,12 +1107,12 @@ sub Dashboard_setVersionInfo($) {
if($modules{$type}{META}{x_prereqs_src} && !$hash->{HELPER}{MODMETAABSENT}) { # META-Daten sind vorhanden
$modules{$type}{META}{version} = "v".$v; # Version aus META.json überschreiben, Anzeige mit {Dumper $modules{SMAPortal}{META}}
- if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 95_Dashboard.pm 20275 2019-09-29 12:58:28Z DS_Starter $ im Kopf komplett! vorhanden )
+ if($modules{$type}{META}{x_version}) { # {x_version} ( nur gesetzt wenn $Id: 95_Dashboard.pm 20323 2019-10-06 20:12:38Z DS_Starter $ im Kopf komplett! vorhanden )
$modules{$type}{META}{x_version} =~ s/1.1.1/$v/g;
} else {
$modules{$type}{META}{x_version} = $v;
}
- return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 95_Dashboard.pm 20275 2019-09-29 12:58:28Z DS_Starter $ im Kopf komplett! vorhanden )
+ return $@ unless (FHEM::Meta::SetInternals($hash)); # FVERSION wird gesetzt ( nur gesetzt wenn $Id: 95_Dashboard.pm 20323 2019-10-06 20:12:38Z DS_Starter $ im Kopf komplett! vorhanden )
if(__PACKAGE__ eq "FHEM::$type" || __PACKAGE__ eq $type) { # es wird mit Packages gearbeitet -> Perl übliche Modulversion setzen
use version 0.77; our $VERSION = FHEM::Meta::Get( $hash, 'version' ); # mit {->VERSION()} im FHEMWEB kann Modulversion abgefragt werden
}
@@ -1167,10 +1193,10 @@ return $a;
######################################################################################
# angegebenes $file im $dir und Unterverzeichnissen suchen
-# und mit Pfad ab ".../images/" in $container speichern wenn gefunden
+# und mit Pfad ab ".../images/" in $ct speichern wenn gefunden
######################################################################################
sub Dashboard_searchImage($$$$) {
- my ($name,$dir,$file,$container) = @_;
+ my ($name,$dir,$file,$ct) = @_;
my $hash = $defs{$name};
my ($t,$im);
@@ -1179,11 +1205,11 @@ sub Dashboard_searchImage($$$$) {
closedir(DIR);
foreach (@files) {
if (-d ($t = "$dir/$_")) { # -d returns true if the following string is a directory.
- Dashboard_searchImage($name,$t,$file,$container);
+ Dashboard_searchImage($name,$t,$file,$ct);
} else {
next if ($_ ne $file);
$im = (split("images\/", $dir."/".$_))[1];
- $hash->{HELPER}{BIMG}{$container} = $im; # Ergebnisfile in Container speichern wenn gefunden
+ $hash->{HELPER}{BIMG}{$ct} = $im; # Ergebnisfile in Container speichern wenn gefunden
Log3 ($name, 5, "Dashboard $name - Background image file found in: $dir/$_");
}
}
@@ -1307,7 +1333,7 @@ sub Dashboard_searchImage($$$$) {
dashboard_backgroundimage
Displays a background image for the complete dashboard. The image is not stretched in any way. So the size should
match/extend the dashboard height/width. Only the filename has to be set.
- The file must be located anywhere below the directory "./www/images/".
+ The file must be at any location below the directory "./www/images/". Suggestion: Create the directory "./www/images/dashboard" and put the image file into.
@@ -1412,7 +1438,7 @@ sub Dashboard_searchImage($$$$) {
Shows a background image for the tab. (also valid for further dashboard_tabXbackgroundimage)
The image is not stretched in any way, it should therefore match the tab size or extend it.
Only the filename has to be set.
- The file must be located anywhere below the directory "./www/images/".
+ The file must be at any location below the directory "./www/images/". Suggestion: Create the directory "./www/images/dashboard" and put the image file into.
@@ -1607,7 +1633,7 @@ sub Dashboard_searchImage($$$$) {
dashboard_backgroundimage
Zeigt ein Hintergrundbild im Dashboard an. Das Bild wird nicht gestreckt, es sollte daher auf die Größe des Dashboards
passen oder diese überschreiten. Es ist nur der Filename anzugeben.
- Das File muss sich irgendwo unterhalb des Verzeichnisses "./www/images/" befinden.
+ Das File muss sich an beliebiger Stelle unterhalb des Verzeichnisses "./www/images/" befinden. Empfehlung: Das Verzeichnis "./www/images/dashboard" anlegen und das Bildfile in diesem Verzeichnis ablegen.
@@ -1721,7 +1747,7 @@ sub Dashboard_searchImage($$$$) {
Zeigt ein Hintergrundbild für den Tab an. (gilt ebenfalls für weitere dashboard_tabXbackgroundimage)
Das Bild wird nicht gestreckt, es sollte also auf die Größe des Tabs passen oder diese überschreiten. Es ist nur der
Filename anzugeben.
- Das File muss sich irgendwo unterhalb des Verzeichnisses "./www/images/" befinden.
+ Das File muss sich an beliebiger Stelle unterhalb des Verzeichnisses "./www/images/" befinden. Empfehlung: Das Verzeichnis "./www/images/dashboard" anlegen und das Bildfile in diesem Verzeichnis ablegen.