Commit 2ecfc2cf authored by Patrick Rauscher's avatar Patrick Rauscher
Browse files

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

parent 094d5ccf

scripts/acronyms.pl

+6 −0
Original line number Diff line number Diff line
@@ -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;