diff --git a/FHEM/98_DSBMobile.pm b/FHEM/98_DSBMobile.pm index 7143fb2e2..1175dfc82 100644 --- a/FHEM/98_DSBMobile.pm +++ b/FHEM/98_DSBMobile.pm @@ -1,4 +1,4 @@ -# $Id$ +# $Id$ ############################################################################## # # 98_DSBMobile.pm @@ -255,12 +255,18 @@ sub DSBMobile_getDataCallback($) { my $d = $topic->{Root}{Childs}; for my $tile (@$d) { - my %au = ( - title => $tile->{Title}, - url => $tile->{Childs}[0]->{Detail}, - date => $tile->{Childs}[0]->{Date} - ); - push( @aus, \%au ); + my $subtile = $tile->{Childs}; + my $i = 1; + for my $stile (@$subtile) { + my %au = ( + title => $tile->{Title}.$i, + url => $stile->{Detail}, + date => $stile->{Date} + ); + $i++; + push( @aus, \%au ); + } + } } } @@ -323,7 +329,7 @@ sub DSBMobile_processTTPages($) { my $name = $hash->{NAME}; my $ttpage = shift @{ $hash->{helper}{tturl} }; - + if ($ttpage) { Log3 $name, 5, "[$name] processing page " . $ttpage; my $nparam = { @@ -625,7 +631,7 @@ sub DSBMobile_simpleHTML($;$) { @days = sort { $a cmp $b } @days; my $date = ""; - my $class; + my $out = AttrVal( $name, "dsb_outputFormat", undef ); foreach my $day (@days) { @@ -635,15 +641,15 @@ sub DSBMobile_simpleHTML($;$) { $row++; if ($infoDay) { foreach my $iline (@idata) { - if ( $row % 2 == 0 ) { - $class = "even"; - } - else { - $class = "odd"; - } - $row++; - if ( $iline->{sdate} eq $day ) { + if ( $row % 2 == 0 ) { + $class = "even"; + } + else { + $class = "odd"; + } + $row++; + $ret .= "