Commit cbbdf22f authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Support backends which recently switched to 4-digit years 

What a time to be alive!
parent 10750ae5

lib/Travel/Status/DE/HAFAS.pm

+5 −1
Original line number Diff line number Diff line
@@ -328,7 +328,11 @@ sub results { 
			push( @messages, $n->getAttribute('header') );

		}



		# Some backends report dd.mm.yy, some report dd.mm.yyyy

		# -> map all dates to dd.mm.yyyy

		if ( length($date) == 8 ) {

			substr( $date, 6, 0, '20' );

		}



		# TODO the first charactor of delayReason is special:

		# " " -> no additional data, rest (if any) is delay reason