Commit 30110a73 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

get_station: set warnstr when a non-root station fetch fails

parent 476b70b9

lib/Travel/Status/DE/IRIS.pm

+15 −3
Original line number Diff line number Diff line
@@ -173,9 +173,16 @@ sub get_station { 
		  = $self->get_with_cache( $self->{main_cache},

			$self->{iris_base} . '/station/' . $station );

		if ($err) {

			if ( $opt{root} ) {

				$self->{errstr} = "Failed to fetch station data: $err";

				return;

			}

			else {

				$self->{warnstr}

				  = "Failed to fetch station data for '$station': $err\n";

				next;

			}

		}



		my $xml_st = XML::LibXML->load_xml( string => $raw );
@@ -184,9 +191,14 @@ sub get_station { 
		if ( not $station_node ) {

			if ( $opt{root} ) {

				$self->{errstr}

				  = "The station '$opt{name}' has no associated timetable";

				  = "Station '$station' has no associated timetable";

				return;

			}

			else {

				$self->{warnstr}

				  = "Station '$station' has no associated timetable";

				next;

			}

			next;

		}