From e586fd402048aeae09e9a6153c757a0a78abe973 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 27 Dec 2022 11:19:25 +0100
Subject: compute_review: handle duplicate iris messages; german locale for
 numbers

---
 lib/Travelynx/Model/Journeys.pm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'lib')

diff --git a/lib/Travelynx/Model/Journeys.pm b/lib/Travelynx/Model/Journeys.pm
index 1ab179a..782f4a7 100755
--- a/lib/Travelynx/Model/Journeys.pm
+++ b/lib/Travelynx/Model/Journeys.pm
@@ -1063,6 +1063,7 @@ sub compute_review {
 	my $min_total = $stats->{min_travel_real} + $stats->{min_interchange_real};
 
 	for my $journey (@journeys) {
+		my %seen;
 		if ( $journey->{rt_duration} ) {
 			if ( not $longest_t
 				or $journey->{rt_duration} > $longest_t->{rt_duration} )
@@ -1090,7 +1091,10 @@ sub compute_review {
 		if ( $journey->{messages} and @{ $journey->{messages} } ) {
 			$message_count += 1;
 			for my $message ( @{ $journey->{messages} } ) {
-				$num_by_message{ $message->[1] } += 1;
+				if ( not $seen{ $message->[1] } ) {
+					$num_by_message{ $message->[1] } += 1;
+					$seen{ $message->[1] } = 1;
+				}
 			}
 		}
 		if ( $journey->{type} ) {
@@ -1119,9 +1123,14 @@ sub compute_review {
 	$review{km_circle}      = sprintf( '%.1f', $stats->{km_route} / 40030 );
 	$review{km_diag}        = sprintf( '%.1f', $stats->{km_route} / 12742 );
 
+	$review{trains_per_day} =~ tr{.}{,};
+	$review{km_circle}      =~ tr{.}{,};
+	$review{km_diag}        =~ tr{.}{,};
+
 	$review{traveling_min_total} = $min_total;
 	$review{traveling_percentage_year}
 	  = sprintf( "%.1f%%", $min_total * 100 / 525948.77 );
+	$review{traveling_percentage_year} =~ tr{.}{,};
 	$review{traveling_time_year} = min_to_human($min_total);
 
 	if (@linetypes) {
-- 
cgit v1.2.3