top trips: handle return trips

This commit is contained in:
Daniel Friesel 2022-12-27 22:12:15 +01:00
parent 3156d5f372
commit 34a19ee1bf
No known key found for this signature in database
GPG key ID: 100D5BFB5166E005
2 changed files with 15 additions and 3 deletions

View file

@ -1342,8 +1342,20 @@ sub compute_review {
my $single_trip_count = 0;
for my $i ( 0 .. 3 ) {
if ( $trips[$i] ) {
push( @{ $review{top_trips} },
[ split( qr{[|]}, $trips[$i][0] ) ] );
my ( $from, $to ) = split( qr{[|]}, $trips[$i][0] );
my $found = 0;
for my $j ( 0 .. $i - 1 ) {
if ( $review{top_trip_count}[$j][0] eq $to
and $review{top_trip_count}[$j][2] eq $from )
{
$review{top_trip_count}[$j][1] = '↔';
$found = 1;
last;
}
}
if ( not $found ) {
push( @{ $review{top_trips} }, [ $from, '→', $to ] );
}
$top_trip_count += $trips[$i][1];
}
}

View file

@ -149,7 +149,7 @@
<strong><%= $review->{top_trip_percent_h} %></strong> deiner Check-Ins konzentrierten sich auf diese Strecken:<br/>
% for my $i (0 .. $#{$review->{top_trips}}) {
% my $trip = $review->{top_trips}[$i];
<%= $trip->[0] %> → <%= $trip->[1] %><br/>
<%= join(q{ }, @{$trip}) %><br/>
% }
</p>
% }