Commit 574e6418 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Handle Umlauts in efa-m and EFA.pm

parent 8502e801

Changelog

+5 −0
Original line number Diff line number Diff line 
git HEAD



    * efa-m: Handle UTF8 in place/stop input

    * Travel::Status::DE::EFA: Handle decoded input with umlauts



Travel::Status::DE::VRR 1.06 - Thu Jan 02 2014



    * Add Travel::Status::DE::EFA module, move ::Result and ::Line to

bin/efa-m

+4 −0
Original line number Diff line number Diff line
@@ -9,6 +9,7 @@ our $VERSION = '1.06'; 


binmode( STDOUT, ':encoding(utf-8)' );



use Encode qw(decode);

use Getopt::Long qw(:config no_ignore_case);

use List::Util qw(max);

use Travel::Status::DE::EFA;
@@ -40,6 +41,9 @@ if ( @ARGV != 2 ) { 


my ( $place, $input ) = @ARGV;



$place = decode( 'UTF-8', $place );

$input = decode( 'UTF-8', $input );



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

	$input_type = $+{type};

}

lib/Travel/Status/DE/EFA.pm

+2 −2
Original line number Diff line number Diff line
@@ -84,11 +84,11 @@ sub new { 
			mode                   => 'direct',

			nameInfo_dm            => 'invalid',

			nameState_dm           => 'empty',

			name_dm                => $opt{name},

			name_dm                => encode( 'ISO-8859-15', $opt{name} ),

			outputFormat           => 'XML',

			placeInfo_dm           => 'invalid',

			placeState_dm          => 'empty',

			place_dm               => $opt{place},

			place_dm               => encode( 'ISO-8859-15', $opt{place} ),

			ptOptionsActive        => '1',

			requestID              => '0',

			reset                  => 'neue Anfrage',