diff options
Diffstat (limited to 'lib/DBInfoscreen/Controller')
| -rw-r--r-- | lib/DBInfoscreen/Controller/Stationboard.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/DBInfoscreen/Controller/Stationboard.pm b/lib/DBInfoscreen/Controller/Stationboard.pm index 758d370..5db9bbd 100644 --- a/lib/DBInfoscreen/Controller/Stationboard.pm +++ b/lib/DBInfoscreen/Controller/Stationboard.pm @@ -148,7 +148,7 @@ sub hafas_xml_req { # <SDay text="... > ..."> is invalid HTML, but present # regardless. As it is the last tag, we just throw it away. - $body =~ s{<SDay .*}{</Journey>}s; + $body =~ s{<SDay [^>]*/>}{}s; my $tree; @@ -958,6 +958,17 @@ sub handle_request { } } } + if ( $him and @{$him} ) { + $departures[-1]{messages}{him} = $him; + for my $message ( @{$him} ) { + if ( $message->{display} ) { + unshift( + @{ $departures[-1]{moreinfo} }, + [ $message->{header}, $message->{lead} ] + ); + } + } + } } } else { |