From 48f6dcd45adec36b6e48c1913e03eb6ed8f9e133 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Tue, 19 Nov 2019 21:50:23 +0100
Subject: Rename UIC to EVA. EVA IDs are often (but not always!) UIC IDs

---
 lib/Travel/Status/DE/IRIS.pm             | 2 +-
 lib/Travel/Status/DE/IRIS/Result.pm      | 3 ++-
 lib/Travel/Status/DE/IRIS/Stations.pm.PL | 8 ++++----
 3 files changed, 7 insertions(+), 6 deletions(-)

(limited to 'lib')

diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index db0698e..e525202 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -724,7 +724,7 @@ Returns a list of hashes describing related stations whose
 arrivals/departures are included in B<results>. Only useful when setting
 B<with_related> to a true value, see its documentation above for details.
 
-Each hash contains the keys B<uic> (UIC/EVA number; known as IBNR in Germany),
+Each hash contains the keys B<uic> (EVA number; often same as UIC station ID),
 B<name> (station name), and B<ds100> (station code). Note that stations
 returned by B<related_stations> are not necessarily known to
 Travel::Status::DE::IRIS::Stations(3pm).
diff --git a/lib/Travel/Status/DE/IRIS/Result.pm b/lib/Travel/Status/DE/IRIS/Result.pm
index 523d2a7..5c72a1f 100644
--- a/lib/Travel/Status/DE/IRIS/Result.pm
+++ b/lib/Travel/Status/DE/IRIS/Result.pm
@@ -1141,7 +1141,8 @@ Name of the station this train result belongs to.
 
 =item $result->station_uic
 
-UIC number of the station this train result belongs to.
+EVA number of the station this train result belongs to.
+This is often, but not always, identical with the UIC station number.
 
 =item $result->stop_no
 
diff --git a/lib/Travel/Status/DE/IRIS/Stations.pm.PL b/lib/Travel/Status/DE/IRIS/Stations.pm.PL
index 7cccd53..4fbfb44 100644
--- a/lib/Travel/Status/DE/IRIS/Stations.pm.PL
+++ b/lib/Travel/Status/DE/IRIS/Stations.pm.PL
@@ -47,7 +47,7 @@ for my $station (@{$stations}) {
 			"['%s','%s',%s,%s,%s],\n",
 			$station->{ds100},
 			$station->{name},
-			$station->{uic},
+			$station->{eva},
 			$station->{latlong}[1],
 			$station->{latlong}[0],
 		);
@@ -57,7 +57,7 @@ for my $station (@{$stations}) {
 			"['%s','%s',%s],\n",
 			$station->{ds100},
 			$station->{name},
-			$station->{uic}
+			$station->{eva}
 		);
 	}
 }
@@ -205,7 +205,7 @@ that it may contain space characters.
 
 =item * Station name
 
-=item * International station number (UIC number / IBNR, "Internationale Bahnhofsnummer")
+=item * EVA station number (often, but not always, same as UIC station number)
 
 =item * Station longitude, if available
 
@@ -225,7 +225,7 @@ Returns a list of all known stations, lexically sorted by station name.
 
 Returns a list of stations matching I<$in>.
 
-If a I<$in> is a valid station (either DS100 code or UIC/EVA number),
+If a I<$in> is a valid station (either DS100 code or EVA number),
 a single array reference describing the station is returned. Otherwise,
 I<$in> is passed to get_station_by_name(I<$in>) (see below).
 
-- 
cgit v1.2.3