From a000aad74320abcaf2eed2e6b0580fd9a8452e2c Mon Sep 17 00:00:00 2001
From: Birte Kristina Friesel <derf@finalrewind.org>
Date: Sat, 15 Mar 2025 10:38:58 +0100
Subject: Switch from DBWagenreihung to DBRIS::Formation

---
 cpanfile         |  3 ++-
 lib/Travelynx.pm | 12 ++++++------
 2 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/cpanfile b/cpanfile
index c230118..46e174e 100644
--- a/cpanfile
+++ b/cpanfile
@@ -17,8 +17,9 @@ 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::HAFAS',          '>= 5.03';
 requires 'Travel::Status::DE::IRIS';
 requires 'UUID::Tiny';
 requires 'JSON';
diff --git a/lib/Travelynx.pm b/lib/Travelynx.pm
index 32d1e2f..2b7fdf5 100755
--- a/lib/Travelynx.pm
+++ b/lib/Travelynx.pm
@@ -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
-- 
cgit v1.2.3