diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2022-12-27 11:19:25 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2022-12-27 11:19:25 +0100 |
| commit | e586fd402048aeae09e9a6153c757a0a78abe973 (patch) | |
| tree | 09ef300ce65389947c353b79c456b86c74bb55df /lib/Travelynx/Model/Journeys.pm | |
| parent | 5ede5ebf6329a5a438c2a09d369c6dca54057b07 (diff) | |
compute_review: handle duplicate iris messages; german locale for numbers
Diffstat (limited to 'lib/Travelynx/Model/Journeys.pm')
| -rwxr-xr-x | lib/Travelynx/Model/Journeys.pm | 11 |
1 files changed, 10 insertions, 1 deletions
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) { |