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

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

Browse source
This commit is contained in:
Daniel Friesel 2021-02-06 18:06:09 +01:00
parent 6c015a91b8
commit 3f33341a2e
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -203,8 +203,11 @@ sub get_xml_p {
=~ 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>[...]">. # Dito for <HIMMessage [...] lead="[...]<br>[...]">.
$body while ( $body
=~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}s; =~ 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 = $@ ) {