diff options
| author | Daniel Friesel <derf@finalrewind.org> | 2015-11-01 22:29:05 +0100 |
|---|---|---|
| committer | Daniel Friesel <derf@finalrewind.org> | 2015-11-01 22:29:05 +0100 |
| commit | 7a24a7d8168639e8e6a6c0f17429681dbdc2aed7 (patch) | |
| tree | e1ea67d616ac971315844cc89dbd4e7549e9f587 /bin/db-iris | |
| parent | 4e9067186cbfb97c152b13076c33e1853cedee71 (diff) | |
support UIC codes
Diffstat (limited to 'bin/db-iris')
| -rwxr-xr-x | bin/db-iris | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/bin/db-iris b/bin/db-iris index 2aa94b7..ecbf376 100755 --- a/bin/db-iris +++ b/bin/db-iris @@ -141,6 +141,10 @@ sub get_departure { sub get_station { my ($input_name) = @_; + if ( $input_name =~ m{ ^ [[:digit:]]+ $ }x ) { + return $input_name; + } + my @stations = Travel::Status::DE::IRIS::Stations::get_station($input_name); if ( @stations == 0 ) { |