Commit 5c3f8eae authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Introduce HAFAS XML fix from travelynx

parent 35d85966

lib/DBInfoscreen/Helper/HAFAS.pm

+5 −2
Original line number Diff line number Diff line
@@ -103,7 +103,10 @@ sub get_xml_p { 
			# regardless. As it is the last tag, we just throw it away.

			$body =~ s{<SDay [^>]*/>}{}s;



           # <Attribute [...] text="[...] "[...]"" prio="800" /> is invalid XML.

			# More fixes for invalid XML

			$body =~ s{P&R}{P&amp;R};



			# <Attribute [...] text="[...] "[...]"" /> is invalid XML.

			# Work around it.

			$body

			  =~ s{<Attribute([^>]+)text="([^"]*)"([^"=]*)""}{<Attribute$1text="$2&#042;$3&#042;"}s;