From f692717e7148365813d3f65b7b350e6090159293 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Tue, 28 Apr 2015 11:59:54 +0200 Subject: add replacement infos to clean display --- index.pl | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'index.pl') diff --git a/index.pl b/index.pl index f76991c..f779291 100644 --- a/index.pl +++ b/index.pl @@ -440,6 +440,10 @@ sub handle_request { delay => $delay, additional_stops => [ $result->additional_stops ], canceled_stops => [ $result->canceled_stops ], + replaced_by => $result->can('replaced_by') + ? [ map { $_->type . q{ } . $_->train_no } $result->replaced_by ] : [], + replacement_for => $result->can('replacement_for') + ? [ map { $_->type . q{ } . $_->train_no } $result->replacement_for ] : [], } ); } -- cgit v1.2.3