diff options
| -rw-r--r-- | Changelog | 1 | ||||
| -rwxr-xr-x | bin/efa | 4 | ||||
| -rw-r--r-- | lib/Travel/Routing/DE/EFA.pm | 14 |
3 files changed, 14 insertions, 5 deletions
@@ -2,6 +2,7 @@ git HEAD * Route::Part: Add {arrival,departure}_{route,station}maps accessors * efa: Add -m, --maps option + * Fix exclude / --exclude (didn't work at all previously) Travel::Routing::DE::VRR 2.05 - Mon Mar 03 2014 @@ -216,6 +216,10 @@ if ( defined $opt->{'ignore-info'} and length( $opt->{'ignore-info'} ) == 0 ) { $opt->{'ignore-info'} = undef; } +if ( $opt->{exclude} ) { + $opt->{exclude} = [ split( /,/, join( ',', @{ $opt->{exclude} } ) ) ]; +} + $efa = eval { Travel::Routing::DE::EFA->new( efa_url => $efa_url, diff --git a/lib/Travel/Routing/DE/EFA.pm b/lib/Travel/Routing/DE/EFA.pm index c6ac3d9..dfed345 100644 --- a/lib/Travel/Routing/DE/EFA.pm +++ b/lib/Travel/Routing/DE/EFA.pm @@ -132,7 +132,7 @@ sub exclude { my $ok = 0; for my $map_id ( 0 .. $#mapping ) { if ( $exclude_type eq $mapping[$map_id] ) { - $self->{post}->{"inclMOT_${map_id}"} = undef; + delete $self->{post}->{"inclMOT_${map_id}"}; $ok = 1; } } @@ -432,7 +432,9 @@ sub new_from_xml { my $self = { xml_reply => $opt{xml} }; - $self->{config} = { efa_url => $opt{efa_url}, }; + $self->{config} = { + efa_url => $opt{efa_url}, + }; $self->{config}->{efa_url} =~ m{ (?<netroot> (?<root> [^:]+ : // [^/]+ ) / [^/]+ / ) @@ -459,7 +461,8 @@ sub submit { if ( $response->is_error ) { Travel::Routing::DE::EFA::Exception::Net->throw( - http_response => $response, ); + http_response => $response, + ); } $self->{xml_reply} = $response->decoded_content; @@ -638,8 +641,9 @@ sub parse_xml_part { sub parse_xml { my ($self) = @_; - my $tree = $self->{tree} - = XML::LibXML->load_xml( string => $self->{xml_reply}, ); + my $tree = $self->{tree} = XML::LibXML->load_xml( + string => $self->{xml_reply}, + ); #say $tree->toString(2); |