Commit 86562f42 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Show HAFAS HIM messages in moreinfo

parent b3e1324c
Loading
Loading
Loading
Loading
+12 −1
Original line number Diff line number Diff line
@@ -148,7 +148,7 @@ sub hafas_xml_req {

	# <SDay text="... &gt; ..."> 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 {
+0 −1
Original line number Diff line number Diff line
@@ -97,7 +97,6 @@
%       else {
%=        $pair->[0]
%       }
        :
        <span class="reason">
%=      $pair->[1]
        </span>