Unverified Commit 34a19ee1 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

top trips: handle return trips

parent 3156d5f3
Loading
Loading
Loading
Loading
+14 −2
Original line number Diff line number Diff line
@@ -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];
		}
	}
+1 −1
Original line number Diff line number Diff line
@@ -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>
				% }