diff options
Diffstat (limited to 'bin/dbwagenreihung')
| -rw-r--r-- | bin/dbwagenreihung | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/bin/dbwagenreihung b/bin/dbwagenreihung index 0c5b2fe..1d842fa 100644 --- a/bin/dbwagenreihung +++ b/bin/dbwagenreihung @@ -27,10 +27,16 @@ if (@trains != 1) { my $wr = Travel::Status::DE::DBWagenreihung->new( departure => $trains[0]->sched_departure, - developer_mode => 1, train_number => $train_number, ); for my $wagon ($wr->wagons) { - printf("%s %s\n", $wagon->number, $wagon->section); + printf("%s %2s", $wagon->section, $wagon->number || 'X'); + if ($wagon->class_type == 12) { + print(" 1/2"); + } + elsif ($wagon->class_type) { + printf(" %d", $wagon->class_type); + } + print("\n"); } |