diff options
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r-- | lib/Travel/Status/DE/IRIS.pm | 2 | ||||
-rw-r--r-- | lib/Travel/Status/DE/IRIS/Result.pm | 3 | ||||
-rw-r--r-- | lib/Travel/Status/DE/IRIS/Stations.pm.PL | 8 |
3 files changed, 7 insertions, 6 deletions
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). |