summaryrefslogtreecommitdiff
path: root/lib/DBInfoscreen
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2023-07-03 19:33:31 +0200
committerBirte Kristina Friesel <derf@finalrewind.org>2023-07-03 19:33:31 +0200
commitf0662c2eb3c23b16131d70d938e82ee5a98fbcc5 (patch)
tree6ba3e73cd6ddcf88076d840bd615787cc30c2d76 /lib/DBInfoscreen
parentb1dcf0d582e92f60e7400f7ac477811a5d351945 (diff)
set description tag for wagon order sites
Diffstat (limited to 'lib/DBInfoscreen')
-rw-r--r--lib/DBInfoscreen/Controller/Wagenreihung.pm23
1 files changed, 20 insertions, 3 deletions
diff --git a/lib/DBInfoscreen/Controller/Wagenreihung.pm b/lib/DBInfoscreen/Controller/Wagenreihung.pm
index 31fcfaf..5d48705 100644
--- a/lib/DBInfoscreen/Controller/Wagenreihung.pm
+++ b/lib/DBInfoscreen/Controller/Wagenreihung.pm
@@ -86,6 +86,10 @@ sub zugbildung_db {
$self->render(
'zugbildung_db',
+ description => sprintf(
+ 'Soll-Wagenreihung %s %s',
+ $details->{train_type} // 'Zug', $train_no
+ ),
wr_error => undef,
title => $details->{train_type} . ' ' . $train_no,
route => $details->{route},
@@ -105,6 +109,10 @@ sub handle_wagenreihung_error {
= "${err}. Ersatzweise werden die Solldaten laut Fahrplan angezeigt.";
$self->render(
'zugbildung_db',
+ description => sprintf(
+ 'Soll-Wagenreihung %s %s',
+ $details->{train_type} // 'Zug', $train_no
+ ),
wr_error => $wr_error,
title => $details->{train_type} . ' ' . $train_no,
route => $details->{route},
@@ -261,11 +269,17 @@ sub wagenreihung {
$wref = b64_encode( encode_json($wref) );
+ my $title = join( ' / ',
+ map { $wr->train_type . ' ' . $_ } $wr->train_numbers );
+
$self->render(
'wagenreihung',
- wr_error => undef,
- title => join( ' / ',
- map { $wr->train_type . ' ' . $_ } $wr->train_numbers ),
+ description => sprintf(
+ 'Ist-Wagenreihung %s in %s',
+ $title, $wr->station_name
+ ),
+ wr_error => undef,
+ title => $title,
train_no => $train,
wr => $wr,
wref => $wref,
@@ -351,6 +365,9 @@ sub wagen {
$self->render(
'wagen',
+ description => ( $wref->{s} ? 'Position von ' : q{} )
+ . $title
+ . ( $wref->{s} ? " in $wref->{s}" : q{} ),
title => $title,
wagon_files => [@wagon_files],
wagon_data => $self->app->dbdb_wagon->{$wagon_id},