EFA.pm: add accessibility options (todo: documentation and inclusion in bin/efa) (cd0f562c) · Commits · derf / Travel-Routing-DE-EFA

lib/Travel/Routing/DE/EFA.pm

+125 −70

Original line number	Diff line number	Diff line
		@@ -243,6 +243,46 @@ sub with_bike {
		return;
		}

		sub without_solid_stairs {
		my ( $self, $opt ) = @_;

		$self->{post}->{noSolidStairs} = $opt;

		return;
		}

		sub without_escalators {
		my ( $self, $opt ) = @_;

		$self->{post}->{noEscalators} = $opt;

		return;
		}

		sub without_elevators {
		my ( $self, $opt ) = @_;

		$self->{post}->{noElevators} = $opt;

		return;
		}

		sub with_low_platform {
		my ( $self, $opt ) = @_;

		$self->{post}->{lowPlatformVhcl} = $opt;

		return;
		}

		sub with_wheelchair {
		my ( $self, $opt ) = @_;

		$self->{post}->{wheelchair} = $opt;

		return;
		}

		sub place {
		my ( $self, $which, $place, $stop, $type ) = @_;

		@@ -378,6 +418,21 @@ sub create_post {
		if ( $conf->{with_bike} ) {
		$self->with_bike(1);
		}
		if ( $conf->{with_low_platform} ) {
		$self->with_low_platform(1);
		}
		if ( $conf->{with_wheelchair} ) {
		$self->with_wheelchair(1);
		}
		if ( $conf->{without_solid_stairs} ) {
		$self->without_solid_stairs(1);
		}
		if ( $conf->{without_escalators} ) {
		$self->without_escalators(1);
		}
		if ( $conf->{without_elevators} ) {
		$self->without_elevators(1);
		}

		for my $val ( values %{ $self->{post} } ) {
		$val = encode( 'ISO-8859-15', $val );