From 515754b9b7778f270ceb3e7cfc9e16176ae3795a Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Fri, 20 Sep 2024 19:28:33 +0200
Subject: passenger rights: show departures with delay ≥ 20 minutes as well
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

This is a quick workaround until I have finally reviewed #116
---
 lib/Travelynx/Controller/Passengerrights.pm |  7 ++-
 templates/passengerrights.html.ep           | 69 +++++++++++++++++++++++++++--
 2 files changed, 70 insertions(+), 6 deletions(-)

diff --git a/lib/Travelynx/Controller/Passengerrights.pm b/lib/Travelynx/Controller/Passengerrights.pm
index d80f1ae..5759d2e 100644
--- a/lib/Travelynx/Controller/Passengerrights.pm
+++ b/lib/Travelynx/Controller/Passengerrights.pm
@@ -121,6 +121,8 @@ sub list_candidates {
 		}
 	}
 
+	my @abo_journeys
+	  = grep { $_->{delay} >= 20 and $_->{delay} < 60 } @journeys;
 	@journeys = grep { $_->{delay} >= 60 or $_->{connection_missed} } @journeys;
 
 	my @cancelled = $self->journeys->get(
@@ -154,8 +156,9 @@ sub list_candidates {
 	$self->respond_to(
 		json => { json => [@journeys] },
 		any  => {
-			template => 'passengerrights',
-			journeys => [@journeys]
+			template     => 'passengerrights',
+			journeys     => [@journeys],
+			abo_journeys => [@abo_journeys]
 		}
 	);
 }
diff --git a/templates/passengerrights.html.ep b/templates/passengerrights.html.ep
index 3d5d21d..c189657 100644
--- a/templates/passengerrights.html.ep
+++ b/templates/passengerrights.html.ep
@@ -2,10 +2,10 @@
 <div class="row">
 	<div class="col s12">
 		<p>
-			Gemäß der Fahrgastrechte im Eisenbahnverkehr besteht ab 60 Minuten
-			Verspätung am Ziel ein Entschädigungsanspruch gegenüber dem
-			Eisenbahnverkehrsunternehmen. Dieser kann mit dem
-			Fahrgastrechteformular geltend gemacht werden.
+			Ab 60 Minuten Verspätung am Ziel besteht in einigen Fällen ein
+			Entschädigungsanspruch gegenüber dem Eisenbahnverkehrsunternehmen.
+			Dieser kann mit dem Fahrgastrechteformular oder online geltend
+			gemacht werden.
 		</p>
 		<p>
 			Die folgenden Zugfahrten sind wahrscheinliche Kandidaten dafür.
@@ -73,3 +73,64 @@
 		</table>
 	</div>
 </div>
+
+<div class="row">
+	<div class="col s12">
+		<p>
+			Bei Abo-Tickets besteht teilweise die Möglichkeit, bereits ab 20
+			Minuten Verspätung Fahrten gesammelt zu Entschädigungszwecken
+			einzureichen. Die folgenden Zugfahrten sind Kandidaten dafür.
+			Fahrten mit einer Verspätung von 60 Minuten oder mehr werden hier
+			nicht aufgeführt.
+		</p>
+	</div>
+</div>
+
+<div class="row">
+	<div class="col s12">
+		<table class="striped">
+			<thead>
+				<tr>
+					<th>Datum</th>
+					<th>Zug</th>
+					<th>Verspätung</th>
+				</tr>
+			</thead>
+			<tbody>
+				% for my $journey (@{$abo_journeys}) {
+					% my $detail_link = '/journey/' . $journey->{id};
+					<tr>
+						<td><%= $journey->{sched_departure}->strftime('%d.%m.%Y') %></td>
+						<td><a href="<%= $detail_link %>">
+							<%= $journey->{type} %> <%= $journey->{line} // $journey->{no} %>
+							→ <%= $journey->{to_name} %>
+							% if ($journey->{connection}) {
+								% $detail_link = '/journey/' . $journey->{connection}{id};
+								</a><br/><a href="<%= $detail_link %>">
+								<%= $journey->{connection}{type} %> <%= $journey->{connection}{line} // $journey->{connection}{no} %>
+								→ <%= $journey->{connection}{to_name} %>
+							% }
+						</a></td>
+						<td>
+							% if ($journey->{cancelled}) {
+								% if ($journey->{has_substitute}) {
+									Ausfall, Ersatzverbindung
+									%= sprintf('%+d', $journey->{substitute_delay})
+								% }
+								% else {
+									Ausfall ohne Ersatzverbindung
+								% }
+							% }
+							% elsif ($journey->{connection}) {
+								%= sprintf('%+d, ggf. Anschluss verpasst',  $journey->{delay})
+							% }
+							% else {
+								%= sprintf('%+d',  $journey->{delay})
+							% }
+						</td>
+					</tr>
+				% }
+			</tbody>
+		</table>
+	</div>
+</div>
-- 
cgit v1.2.3