Commit ba97fd2a authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

do not insert duplicate wagongroups

parent 22b0e98b

lib/Travelynx.pm

+3 −0
Original line number Diff line number Diff line
@@ -2158,6 +2158,9 @@ sub startup { 
						if ($is_departure) {

							$data->{wagonorder_dep} = $wagonorder;

							$user_data->{wagons}    = [];

							if ( exists $user_data->{wagongroups} ) {

								$user_data->{wagongroups} = [];

							}

							for my $group (

								@{

									$wagonorder->{data}{istformation}