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

Fix operator / train_no logic. Was storing max rather than argmax. 

See #9
parent a70d32f3

lib/Travel/Status/DE/DBRIS/Journey.pm

+9 −13
Original line number Diff line number Diff line
@@ -51,17 +51,15 @@ sub new { 
			my @admin_id_argmax

			  = reverse sort { $admin_id_ml{$a} <=> $admin_id_ml{$b} }

			  keys %admin_id_ml;

			if ( defined( my $admin_id = $admin_id_ml{ $admin_id_argmax[0] } ) )

			{

				$ref->{admin_id} = $admin_id;

			$ref->{admin_id} = $admin_id_argmax[0];

			if (

				my $op

				= Travel::Status::DE::DBRIS::Operators::get_operator_name(

						$admin_id)

					$ref->{admin_id}

				)

			  )

			{

					$ref->{operator} = $admin_id;

				}

				$ref->{operator} = $op;

			}



			# return most frequent admin ID first
@@ -78,9 +76,7 @@ sub new { 
			my @trip_no_argmax

			  = reverse sort { $trip_no_ml{$a} <=> $trip_no_ml{$b} }

			  keys %trip_no_ml;

			if ( defined( my $trip_no = $trip_no_ml{ $trip_no_argmax[0] } ) ) {

				$ref->{train_no_no} = $trip_no;

			}

			$ref->{train_no} = $trip_no_argmax[0];

		}

	}