review: fix percentage locale
This commit is contained in:
parent
3fa9df942f
commit
18bb069da3
1 changed files with 2 additions and 8 deletions
|
@ -1375,18 +1375,12 @@ sub compute_review {
|
||||||
$review{top_trip_count} = $top_trip_count;
|
$review{top_trip_count} = $top_trip_count;
|
||||||
$review{top_trip_percent_h}
|
$review{top_trip_percent_h}
|
||||||
= sprintf( '%.1f%%', $top_trip_count * 100 / $stats->{num_trains} );
|
= 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_count} = $single_trip_count;
|
||||||
$review{single_trip_percent_h}
|
$review{single_trip_percent_h}
|
||||||
= sprintf( '%.1f%%', $single_trip_count * 100 / $stats->{num_trains} );
|
= sprintf( '%.1f%%', $single_trip_count * 100 / $stats->{num_trains} );
|
||||||
|
$review{single_trip_percent_h} =~ tr{.}{,};
|
||||||
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] ];
|
|
||||||
}
|
|
||||||
|
|
||||||
return \%review;
|
return \%review;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue