enable DS100-codes for input. could be more efficient maybe, but first version

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;