From 2ecfc2cfd6015729608df339f14e4a2e520a6696 Mon Sep 17 00:00:00 2001 From: Patrick Rauscher Date: Wed, 15 Jan 2014 00:52:58 +0100 Subject: enable DS100-codes for input. could be more efficient maybe, but first version --- scripts/acronyms.pl | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'scripts/acronyms.pl') diff --git a/scripts/acronyms.pl b/scripts/acronyms.pl index 3687f40..43634d3 100755 --- a/scripts/acronyms.pl +++ b/scripts/acronyms.pl @@ -48,6 +48,12 @@ sub get_stations { sub get_station_by_name { my ( $name ) = @_; + my $ds100_match = firstval { $nname eq $_->[0] } @stations; + + if ($ds100_match) { + return ($ds100_match); + } + my $nname = lc($name); my $actual_match = firstval { $nname eq lc($_->[1]) } @stations; -- cgit v1.2.3