Update 59_Weather.pm
Paramater 2 und 3 werden automatisch dem zugehörigen internen Parameter Anzahl oder daily/hourly zugeordnet. Damit ist die Reihenfolge beim Aufruf frei wählbar und beide Parameter können beim Aufruf beliebig weggelassen werden.
This commit is contained in:
		| @@ -709,7 +709,11 @@ sub WeatherIconIMGTag($) { | ||||
| ##################################### | ||||
|  | ||||
| sub WeatherAsHtmlV($;$$) { | ||||
|     my ( $d, $f, $items ) = @_; | ||||
|     my ( $d, $op1, $op2 ) = @_; | ||||
|     my $items = $op2; | ||||
|     my $f = $op1; | ||||
|     if($op1 =~ /[0-9]/g){ $items = $op1; } | ||||
|     if($op2 =~ /[dh]/g){ $f = $op2; } | ||||
|  | ||||
|     $f =~ tr/dh/./cd; | ||||
|     $f = "h" if ( !$f || length($f) > 1); | ||||
| @@ -781,7 +785,11 @@ sub WeatherAsHtmlV($;$$) { | ||||
| } | ||||
|  | ||||
| sub WeatherAsHtml($;$$) { | ||||
|     my ( $d, $f, $items ) = @_; | ||||
|     my ( $d, $op1, $op2 ) = @_; | ||||
|     my $items = $op2; | ||||
|     my $f = $op1; | ||||
|     if($op1 =~ /[0-9]/g){ $items = $op1; } | ||||
|     if($op2 =~ /[dh]/g){ $f = $op2; } | ||||
|  | ||||
|     $f =~ tr/dh/./cd; | ||||
|     $f = "h" if ( !$f || length($f) > 1); | ||||
| @@ -792,12 +800,11 @@ sub WeatherAsHtml($;$$) { | ||||
| } | ||||
|  | ||||
| sub WeatherAsHtmlH($;$$) { | ||||
|     my ( $d, $f, $items ) = @_; | ||||
|  | ||||
|     $f =~ tr/dh/./cd; | ||||
|     $f = "h" if ( !$f || length($f) > 1); | ||||
|     $items =~ tr/0-9/./cd; | ||||
|     $items = 6   if ( !$items ); | ||||
|     my ( $d, $op1, $op2 ) = @_; | ||||
|     my $items = $op2; | ||||
|     my $f = $op1; | ||||
|     if($op1 =~ /[0-9]/g){ $items = $op1; } | ||||
|     if($op2 =~ /[dh]/g){ $f = $op2; } | ||||
|      | ||||
|     return "$d is not a Weather instance<br>" | ||||
|       if ( !$defs{$d} || $defs{$d}->{TYPE} ne "Weather" ); | ||||
| @@ -884,7 +891,11 @@ sub WeatherAsHtmlH($;$$) { | ||||
| } | ||||
|  | ||||
| sub WeatherAsHtmlD($;$$) { | ||||
|     my ( $d, $f, $items ) = @_; | ||||
|     my ( $d, $op1, $op2 ) = @_; | ||||
|     my $items = $op2; | ||||
|     my $f = $op1; | ||||
|     if($op1 =~ /[0-9]/g){ $items = $op1; } | ||||
|     if($op2 =~ /[dh]/g){ $f = $op2; } | ||||
|  | ||||
|     $f =~ tr/dh/./cd; | ||||
|     $f = "h" if ( !$f || length($f) > 1); | ||||
|   | ||||
		Reference in New Issue
	
	Block a user