Unverified Commit a000aad7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Switch from DBWagenreihung to DBRIS::Formation

parent f6a191c4

cpanfile

+2 −1
Original line number Diff line number Diff line
@@ -17,6 +17,7 @@ requires 'Mojolicious::Plugin::OAuth2'; 
requires 'Mojo::Pg';

requires 'Text::CSV';

requires 'Text::Markdown';

requires 'Travel::Status::DE::DBRIS',          '>= 0.06';

requires 'Travel::Status::DE::DBWagenreihung', '== 0.18';

requires 'Travel::Status::DE::HAFAS',          '>= 5.03';

requires 'Travel::Status::DE::IRIS';

lib/Travelynx.pm

+6 −6
Original line number Diff line number Diff line
@@ -19,7 +19,7 @@ use JSON; 
use List::Util;

use List::UtilsBy   qw(uniq_by);

use List::MoreUtils qw(first_index);

use Travel::Status::DE::DBWagenreihung;

use Travel::Status::DE::DBRIS::Formation;

use Travelynx::Helper::DBDB;

use Travelynx::Helper::HAFAS;

use Travelynx::Helper::IRIS;
@@ -182,7 +182,7 @@ sub startup { 
	$self->attr(

		ice_name => sub {

			state $id_to_name = {

				Travel::Status::DE::DBWagenreihung::Group::name_to_designation(

				Travel::Status::DE::DBRIS::Formation::Group::name_to_designation(

				)

			};

			return $id_to_name;
@@ -1622,8 +1622,8 @@ sub startup { 
				my $wr;

				eval {

					$wr

					  = Travel::Status::DE::DBWagenreihung->new(

						from_json => $wagonorder );

					  = Travel::Status::DE::DBRIS::Formation->new(

						json => $wagonorder );

				};

				if (    $wr

					and $wr->sectors
@@ -1768,8 +1768,8 @@ sub startup { 
					my $wr;

					eval {

						$wr

						  = Travel::Status::DE::DBWagenreihung->new(

							from_json => $in_transit->{data}{wagonorder_dep} );

						  = Travel::Status::DE::DBRIS::Formation->new(

							json => $in_transit->{data}{wagonorder_dep} );

					};

					if (    $wr

						and $wr->carriages