Commit 26d8ae1c authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

efa-m, EFA: Accept "stopID" stop type

parent 598f19db

bin/efa-m

+1 −1
Original line number Diff line number Diff line
@@ -75,7 +75,7 @@ else { 
	( $place, $input ) = @ARGV;

}



if ( $input =~ s{ ^ (?<type> address|poi|stop) : }{}x ) {

if ( $input =~ s{ ^ (?<type> address|poi|stop|stopID) : }{}x ) {

	$input_type = $+{type};

}

lib/Travel/Status/DE/EFA.pm

+3 −3
Original line number Diff line number Diff line
@@ -34,8 +34,8 @@ sub new { 
	if ( not( $opt{name} ) ) {

		confess('You must specify a name');

	}

	if ( $opt{type} and not( $opt{type} ~~ [qw[stop address poi]] ) ) {

		confess('type must be stop, address or poi');

	if ( $opt{type} and not( $opt{type} ~~ [qw[stop stopID address poi]] ) ) {

		confess('type must be stop, stopID, address, or poi');

	}



	if ( not $opt{efa_url} ) {
@@ -706,7 +706,7 @@ E<lt>derf+efa@finalrewind.orgE<gt>. 


Name of the place/city



=item B<type> => B<address>|B<poi>|B<stop>

=item B<type> => B<address>|B<poi>|B<stop>|B<stopID>



Type of the following I<name>.  B<poi> means "point of interest".  Defaults to

B<stop> (stop/station name).