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