summaryrefslogtreecommitdiff
path: root/lib/Travelynx/Model/Journeys.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travelynx/Model/Journeys.pm')
-rwxr-xr-xlib/Travelynx/Model/Journeys.pm16
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];
}
}