From 37a0b8f2ab7ba0371d32e44ad6fb4f09fe1b35b7 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 12 Jul 2021 19:16:14 +0200
Subject: Handle another case of funky HAFAS html ("foo <> bar")

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

(limited to 'lib/Travelynx/Helper/HAFAS.pm')

diff --git a/lib/Travelynx/Helper/HAFAS.pm b/lib/Travelynx/Helper/HAFAS.pm
index 84226a4..6fd5c71 100644
--- a/lib/Travelynx/Helper/HAFAS.pm
+++ b/lib/Travelynx/Helper/HAFAS.pm
@@ -207,6 +207,14 @@ sub get_xml_p {
 			$body
 			  =~ s{<HIMMessage([^>]+)lead="([^"]*)"([^"=>]*)"([^"]*)"}{<Attribute$1text="$2&#042;$3&#042;$4"}s;
 
+			# ... and <HIMMessage [...] lead="[...]<>[...]">
+			# (replace <> with t$t)
+			while ( $body
+				=~ s{<HIMMessage([^>]+)lead="([^"]*)<>([^"=]*)"}{<HIMMessage$1lead="$2&#11020;$3"}gis
+			  )
+			{
+			}
+
 			# Dito for <HIMMessage [...] lead="[...]<br>[...]">.
 			while ( $body
 				=~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}is
-- 
cgit v1.2.3