summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2022-12-11 16:31:31 +0100
committerDaniel Friesel <derf@finalrewind.org>2022-12-11 16:31:31 +0100
commit55b95aaffdf7f12d244b5844e06974bfc114e3b5 (patch)
treeebfb8f7d85bad3c262adbd9caced46a73216a86a
parentfdeb15c6b515e5be331c8aaaa86ab74287d3765a (diff)
new_p: handle unknown EVA IDs
-rw-r--r--lib/Travel/Status/DE/IRIS.pm9
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index 3b1ff47..1f364ac 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -54,6 +54,15 @@ sub new_p {
my @candidates = $opt{get_station}( $opt{station} );
+ if ( @candidates != 1 and $opt{station} =~ m{^\d+$} ) {
+ @candidates = (
+ [
+ "D$opt{station}", "Betriebsstelle nicht bekannt $opt{station}",
+ $opt{station}
+ ]
+ );
+ }
+
if ( @candidates == 0 ) {
return $promise->reject('station not found');
}