diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2023-07-03 19:33:31 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2023-07-03 19:33:31 +0200 |
| commit | f0662c2eb3c23b16131d70d938e82ee5a98fbcc5 (patch) | |
| tree | 6ba3e73cd6ddcf88076d840bd615787cc30c2d76 /lib/DBInfoscreen | |
| parent | b1dcf0d582e92f60e7400f7ac477811a5d351945 (diff) | |
set description tag for wagon order sites
Diffstat (limited to 'lib/DBInfoscreen')
| -rw-r--r-- | lib/DBInfoscreen/Controller/Wagenreihung.pm | 23 |
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}, |