diff options
Diffstat (limited to 'lib')
| -rwxr-xr-x | lib/Travelynx.pm | 30 | ||||
| -rwxr-xr-x | lib/Travelynx/Controller/Traveling.pm | 14 |
2 files changed, 44 insertions, 0 deletions
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; } diff --git a/lib/Travelynx/Controller/Traveling.pm b/lib/Travelynx/Controller/Traveling.pm index c8f975f..c05586a 100755 --- a/lib/Travelynx/Controller/Traveling.pm +++ b/lib/Travelynx/Controller/Traveling.pm @@ -719,6 +719,16 @@ sub edit_journey { } } } + if ( defined $self->param('route') ) { + my @route_old = map { $_->[0] } @{ $journey->{route} }; + my @route_new = split( qr{\r?\n\r?}, $self->param('route') ); + @route_new = grep { $_ ne '' } @route_new; + if ( join( '|', @route_old ) ne join( '|', @route_new ) ) { + $error + = $self->update_journey_part( $db, $journey->{id}, 'route', + [@route_new] ); + } + } if ( not $error ) { $journey = $self->get_journey( @@ -742,6 +752,10 @@ sub edit_journey { $key => $journey->{$key}->strftime('%d.%m.%Y %H:%M') ); } } + + $self->param( + route => join( "\n", map { $_->[0] } @{ $journey->{route} } ) ); + for my $key (qw(comment)) { if ( $journey->{user_data} and $journey->{user_data}{$key} ) { $self->param( $key => $journey->{user_data}{$key} ); |