PrivateCoffee/travelynx
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

HAFAS: Handle <br> tags in HTML attributes

Browse source
This commit is contained in:
Daniel Friesel 2021-02-06 12:13:25 +01:00
parent 93ca0e6e75
commit 5b1841ccce
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/Travelynx/Helper/HAFAS.pm
View file

@ -201,6 +201,11 @@ sub get_xml_p {
# Work around it. # Work around it.
$body $body
=~ s{<Attribute([^>]+)text="([^"]*)"([^"=]*)""}{<Attribute$1text="$2&#042;$3&#042;"}s; =~ 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 ) }; eval { $tree = XML::LibXML->load_xml( string => $body ) };
if ( my $err = $@ ) { if ( my $err = $@ ) {
if ( $err =~ m{extra content at the end}i ) { if ( $err =~ m{extra content at the end}i ) {