From ccc93413a28d03fd3d2ccf2d86831ad00c77cfe2 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Thu, 29 Dec 2022 14:14:12 +0100
Subject: review: link to list of all single-trip checkins

---
 lib/Travelynx/Model/Journeys.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'lib/Travelynx/Model/Journeys.pm')

diff --git a/lib/Travelynx/Model/Journeys.pm b/lib/Travelynx/Model/Journeys.pm
index 1adf95e..f23c2b1 100755
--- a/lib/Travelynx/Model/Journeys.pm
+++ b/lib/Travelynx/Model/Journeys.pm
@@ -1039,6 +1039,22 @@ sub get_travel_distance {
 		$distance_beeline, $skipped );
 }
 
+sub grep_single {
+	my ( $self, @journeys ) = @_;
+
+	my %num_by_trip;
+	for my $journey (@journeys) {
+		if ( $journey->{from_name} and $journey->{to_name} ) {
+			$num_by_trip{ $journey->{from_name} . '|' . $journey->{to_name} }
+			  += 1;
+		}
+	}
+
+	return
+	  grep { $num_by_trip{ $_->{from_name} . '|' . $_->{to_name} } == 1 }
+	  @journeys;
+}
+
 sub compute_review {
 	my ( $self, $stats, @journeys ) = @_;
 	my $longest_km;
-- 
cgit v1.2.3