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

HAFAS: Remove all illegal linebreaks from attributes, not just the first

parent d446b73e

lib/DBInfoscreen/Helper/HAFAS.pm

+5 −2
Original line number Diff line number Diff line
@@ -121,8 +121,11 @@ sub get_xml_p { 
			  =~ s{<Attribute([^>]+)text="([^"]*)"([^"=]*)""}{<Attribute$1text="$2&#042;$3&#042;"}s;



			# Dito for <HIMMessage [...] lead="[...]<br>[...]">.

			$body

			  =~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}s;

			while ( $body

				=~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}gs

			  )

			{

			}



			my $tree;