Commit b1a0853d authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Handle another case of funky HAFAS HTML ("foo <> bar")

parent df05c90f

lib/DBInfoscreen/Helper/HAFAS.pm

+8 −0
Original line number Diff line number Diff line
@@ -138,6 +138,14 @@ sub get_xml_p { 
			{

			}



			# ... and <HIMMessage [...] lead="[...]<>[...]">

			# (replace <> with t$t)

			while ( $body

				=~ s{<HIMMessage([^>]+)lead="([^"]*)<>([^"=]*)"}{<HIMMessage$1lead="$2&#11020;$3"}gis

			  )

			{

			}



			# ... and any other HTML tag inside an XML attribute

			# (remove them entirely)

			while ( $body