summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPatrick Rauscher <prauscher@ohai.su>2014-01-15 00:52:58 +0100
committerPatrick Rauscher <prauscher@ohai.su>2014-01-15 00:52:58 +0100
commit2ecfc2cfd6015729608df339f14e4a2e520a6696 (patch)
tree7e46ccc5b578857c771bc3316c8a18bf534a7b28
parent094d5ccf7e3a7b74d33a7b0db16f37e68d86590c (diff)
enable DS100-codes for input. could be more efficient maybe, but first version
-rwxr-xr-xscripts/acronyms.pl6
1 files changed, 6 insertions, 0 deletions
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;