From b682508bc6e0500853c45bddac23d32e92ab6e94 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Wed, 2 Jan 2019 15:05:45 +0100 Subject: Add train_subtype accessor (ICE 1 / 2 / 3 / 4 / T / IC2) --- bin/db-wagenreihung | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'bin') diff --git a/bin/db-wagenreihung b/bin/db-wagenreihung index 0150ae6..5c01cf5 100755 --- a/bin/db-wagenreihung +++ b/bin/db-wagenreihung @@ -70,8 +70,11 @@ my $wr = Travel::Status::DE::DBWagenreihung->new( train_number => $train_number, ); -printf( "%s %s in %s Gleis %s\n", - $wr->train_type, $wr->train_no, $wr->station_name, $wr->platform ); +printf( + "%s %s (%s) in %s Gleis %s\n\n", + $wr->train_type, $wr->train_no, $wr->train_subtype, + $wr->station_name, $wr->platform +); for my $section ( $wr->sections ) { my $section_length = $section->length_percent; -- cgit v1.2.3