From 22d57710f75707fc1fe3f7e36923b72178f39aed Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Fri, 31 Jan 2025 06:53:29 +0100 Subject: Indicate Add tranfer_duration accessor; set is_unlikely if negative --- bin/dbris | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'bin/dbris') diff --git a/bin/dbris b/bin/dbris index 879bd96..c46975d 100755 --- a/bin/dbris +++ b/bin/dbris @@ -310,6 +310,17 @@ for my $connection ( $ris->connections ) { } for my $segment ( $connection->segments ) { + if ( defined $segment->transfer_duration ) { + if ( $segment->transfer_duration->in_units('minutes') >= 0 ) { + $header .= sprintf( ' (%01d:%02d)', + $segment->transfer_duration->in_units( 'hours', 'minutes' ) + ); + } + else { + $header .= sprintf( " ${output_critical}(%02d)${output_reset}", + $segment->transfer_duration->in_units('minutes') ); + } + } if ( $segment->train_short ) { $header .= sprintf( ' %s', $segment->train_short ); } -- cgit v1.2.3