review: link to list of all single-trip checkins1.29.1

2 files changed, 22 insertions, 1 deletions

diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm
index 7a00cd0..01a9059 100755
--- a/lib/Travelynx/Controller/Traveling.pm
+++ b/lib/Travelynx/Controller/Traveling.pm
@@ -1513,7 +1513,8 @@ sub year_in_review {
 
 sub yearly_history {
 	my ($self) = @_;
-	my $year = $self->stash('year');
+	my $year   = $self->stash('year');
+	my $filter = $self->param('filter');
 	my @journeys;
 
 	# DateTime is very slow when looking far into the future due to DST changes
@@ -1540,6 +1541,10 @@ sub yearly_history {
 		with_datetime => 1
 	);
 
+	if ( $filter and $filter eq 'single' ) {
+		@journeys = $self->journeys->grep_single(@journeys);
+	}
+
 	if ( not @journeys ) {
 		$self->render( 'not_found',
 			message => 'Keine Zugfahrten im angefragten Jahr gefunden.' );
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;