summaryrefslogtreecommitdiff
path: root/lib/DBInfoscreen/Controller
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2020-12-19 17:33:39 +0100
committerDaniel Friesel <derf@finalrewind.org>2020-12-19 17:33:39 +0100
commit9f529d9fc2f344203eef9c567a15ae046fe9c5d6 (patch)
tree83f828111a2b13dd528257ea972189ef123724e0 /lib/DBInfoscreen/Controller
parent240e442e559096958a4fb29740e6ffeb1d31af78 (diff)
improve attributoun on wagon order views
Diffstat (limited to 'lib/DBInfoscreen/Controller')
-rw-r--r--lib/DBInfoscreen/Controller/Wagenreihung.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
index 498b3b6..63366a2 100644
--- a/lib/DBInfoscreen/Controller/Wagenreihung.pm
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -49,14 +49,17 @@ sub zugbildung_db {
my $pos = 0;
for my $wagon (@wagons) {
$wagon->{position}{start_percent} = $pos;
- $wagon->{position}{end_percent} = $pos + 4;
- $pos += 4;
+ $wagon->{position}{end_percent} = $pos + 5;
+ $pos += 5;
}
+ my $train_type = $details->{raw};
+ $train_type =~ s{ - .* }{}x;
+
$self->render(
'zugbildung_db',
wr_error => undef,
- title => $details->{raw} . ' ' . $train_no,
+ title => $train_type . ' ' . $train_no,
zb => $details,
train_no => $train_no,
wagons => [@wagons],