From d446b73edd84565948702e3418f17a8c5e04aa9e Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 5 Feb 2021 23:17:33 +0100
Subject: HAFAS: Handle <br> tags in HTML attributes

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

(limited to 'lib/DBInfoscreen')

diff --git a/lib/DBInfoscreen/Helper/HAFAS.pm b/lib/DBInfoscreen/Helper/HAFAS.pm
index f0da6e7..a7c07c3 100644
--- a/lib/DBInfoscreen/Helper/HAFAS.pm
+++ b/lib/DBInfoscreen/Helper/HAFAS.pm
@@ -120,6 +120,10 @@ sub get_xml_p {
 			$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;
+
 			my $tree;
 
 			eval { $tree = XML::LibXML->load_xml( string => $body ) };
-- 
cgit v1.2.3