add replacement infos to clean display0.06

1 files changed, 4 insertions, 0 deletions

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 ] : [],
 				}
 			);
 		}