From 5b1841cccefc74b8fa3b523b3a5b5359a9e39c6d Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 6 Feb 2021 12:13:25 +0100
Subject: HAFAS: Handle <br> tags in HTML attributes

---
 lib/Travelynx/Helper/HAFAS.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/lib/Travelynx/Helper/HAFAS.pm b/lib/Travelynx/Helper/HAFAS.pm
index bf51efd..77bd52b 100644
--- a/lib/Travelynx/Helper/HAFAS.pm
+++ b/lib/Travelynx/Helper/HAFAS.pm
@@ -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 ) {
-- 
cgit v1.2.3