From f2b7659a4d900ce49b1b5af1e7883c69e4e5096e Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Sat, 9 Apr 2016 14:51:42 +0200 Subject: change via/stop/lineID variable names to perl-style (..._id) --- lib/Travel/Status/DE/URA.pm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) (limited to 'lib/Travel') diff --git a/lib/Travel/Status/DE/URA.pm b/lib/Travel/Status/DE/URA.pm index 8079ab6..afa62d8 100644 --- a/lib/Travel/Status/DE/URA.pm +++ b/lib/Travel/Status/DE/URA.pm @@ -48,9 +48,9 @@ sub new { hide_past => $opt{hide_past} // 1, stop => $opt{stop}, via => $opt{via}, - viaID => $opt{viaID}, - stopID => $opt{stopID}, - lineID => $opt{lineID}, + via_id => $opt{via_id}, + stop_id => $opt{stop_id}, + line_id => $opt{line_id}, circle => $opt{circle}, post => { @@ -73,19 +73,19 @@ sub new { if ( substr( $self->{ura_instant_url}, 0, 5 ) ne 'file:' ) { - # filter by stopID only if full_routes is not set - if ( not $self->{full_routes} and $self->{stopID} ) { - $self->{post}{StopID} = $self->{stopID}; + # filter by stop_id only if full_routes is not set + if ( not $self->{full_routes} and $self->{stop_id} ) { + $self->{post}{StopID} = $self->{stop_id}; # filter for via as well to make via work - if ( defined $self->{viaId} ) { - $self->{post}{StopID} .= q{,} . $self->{viaID}; + if ( defined $self->{via_id} ) { + $self->{post}{StopID} .= q{,} . $self->{via_id}; } } # filter by line - if ( $self->{lineID} ) { - $self->{post}{LineID} = $self->{lineID}; + if ( $self->{line_id} ) { + $self->{post}{LineID} = $self->{line_id}; } # filter for Stops in circle (lon,lat,dist) @@ -197,9 +197,9 @@ sub results { my $full_routes = $opt{calculate_routes} // $self->{full_routes} // 0; my $hide_past = $opt{hide_past} // $self->{hide_past} // 1; my $stop = $opt{stop} // $self->{stop}; - my $stop_id = $opt{stopID} // $self->{stopID}; + my $stop_id = $opt{stop_id} // $self->{stop_id}; my $via = $opt{via} // $self->{via}; - my $via_id = $opt{viaID} // $self->{viaID}; + my $via_id = $opt{via_id} // $self->{via_id}; my $dt_now = $self->{datetime}; my $ts_now = $dt_now->epoch; -- cgit v1.2.3