From 57f47d2a3caf380ca32b4230e81aecf41e72c63a Mon Sep 17 00:00:00 2001
From: Daniel Friesel <daniel.friesel@uos.de>
Date: Wed, 20 Nov 2019 17:41:21 +0100
Subject: allow routes to be edited after recording a journey

---
 lib/Travelynx.pm | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)

(limited to 'lib/Travelynx.pm')

diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index f13dd60..07e0c4c 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -817,6 +817,19 @@ sub startup {
 						}
 					)->rows;
 				}
+				elsif ( $key eq 'route' ) {
+					my @new_route = map { [ $_, {}, undef ] } @{$value};
+					$rows = $db->update(
+						'journeys',
+						{
+							route  => JSON->new->encode( \@new_route ),
+							edited => $journey->{edited} | 0x0010,
+						},
+						{
+							id => $journey_id,
+						}
+					)->rows;
+				}
 				elsif ( $key eq 'comment' ) {
 					$journey->{user_data}{comment} = $value;
 					$rows = $db->update(
@@ -871,6 +884,23 @@ sub startup {
 			{
 				return 'Die Zugfahrt ist länger als 24 Stunden.';
 			}
+			if ( $journey->{kmh_route} > 500 or $journey->{kmh_beeline} > 500 )
+			{
+				return 'Zugfahrten mit über 500 km/h? Schön wär\'s.';
+			}
+			if ( $journey->{edited} & 0x0010 ) {
+				my @unknown_stations;
+				for my $station ( @{ $journey->{route} } ) {
+					my $station_info = get_station( $station->[0] );
+					if ( not $station_info ) {
+						push( @unknown_stations, $station->[0] );
+					}
+				}
+				if (@unknown_stations) {
+					return 'Unbekannte Stationen: '
+					  . join( ', ', @unknown_stations );
+				}
+			}
 
 			return undef;
 		}
-- 
cgit v1.2.3