review: fix percentage locale

This commit is contained in:
Daniel Friesel 2022-12-27 22:22:34 +01:00
parent 3fa9df942f
commit 18bb069da3
No known key found for this signature in database
GPG key ID: 100D5BFB5166E005

View file

@ -1375,18 +1375,12 @@ sub compute_review {
$review{top_trip_count} = $top_trip_count;
$review{top_trip_percent_h}
= sprintf( '%.1f%%', $top_trip_count * 100 / $stats->{num_trains} );
$review{top_trip_percent_h} =~ tr{.}{,};
$review{single_trip_count} = $single_trip_count;
$review{single_trip_percent_h}
= sprintf( '%.1f%%', $single_trip_count * 100 / $stats->{num_trains} );
if ( @stops >= 3 ) {
my $desc = q{};
$review{typical_stops_3} = [ $stops[0][0], $stops[1][0], $stops[2][0] ];
}
elsif ( @stops == 2 ) {
$review{typical_stops_2} = [ $stops[0][0], $stops[1][0] ];
}
$review{single_trip_percent_h} =~ tr{.}{,};
return \%review;
}