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

HAFAS: Handle <br> tags in HTML attributes

parent 93ca0e6e

lib/Travelynx/Helper/HAFAS.pm

+5 −0
Original line number Diff line number Diff line
@@ -201,6 +201,11 @@ sub get_xml_p { 
			# Work around it.

			$body

			  =~ 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;



			eval { $tree = XML::LibXML->load_xml( string => $body ) };

			if ( my $err = $@ ) {

				if ( $err =~ m{extra content at the end}i ) {