diff options
Diffstat (limited to 'lib/Travelynx/Model')
| -rwxr-xr-x | lib/Travelynx/Model/Journeys.pm | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lib/Travelynx/Model/Journeys.pm b/lib/Travelynx/Model/Journeys.pm index 5721726..404567b 100755 --- a/lib/Travelynx/Model/Journeys.pm +++ b/lib/Travelynx/Model/Journeys.pm @@ -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]; } } |