carriage formation preview: fix direction when platform data is available
This commit is contained in:
parent
8b7e5909a8
commit
d4a8507f85
1 changed files with 4 additions and 2 deletions
|
@ -70,17 +70,19 @@
|
||||||
<br/>
|
<br/>
|
||||||
<!-- <a href="https://dbf.finalrewind.org/carriage-formation?<%= $journey->{train_no} %>/<%= $journey->{sched_departure}->strftime('%Y%m%d%H%M') %>?e=<%= $journey->{dep_direction} // q{} %>"> -->
|
<!-- <a href="https://dbf.finalrewind.org/carriage-formation?<%= $journey->{train_no} %>/<%= $journey->{sched_departure}->strftime('%Y%m%d%H%M') %>?e=<%= $journey->{dep_direction} // q{} %>"> -->
|
||||||
% my $direction = $wr->direction == 100 ? '→' : '←';
|
% my $direction = $wr->direction == 100 ? '→' : '←';
|
||||||
|
% my $rev = 0;
|
||||||
% if ($journey->{dep_direction}) {
|
% if ($journey->{dep_direction}) {
|
||||||
% $direction = $journey->{dep_direction} eq 'l' ? '◀' : '▶';
|
% $direction = $journey->{dep_direction} eq 'l' ? '◀' : '▶';
|
||||||
|
% $rev = (($journey->{dep_direction} eq 'l' ? 0 : 100) == $wr->direction) ? 0 : 1;
|
||||||
% }
|
% }
|
||||||
%= $direction
|
%= $direction
|
||||||
% my $had_entry = 0;
|
% my $had_entry = 0;
|
||||||
% for my $group ($wr->groups) {
|
% for my $group ($rev ? reverse $wr->groups : $wr->groups) {
|
||||||
% if ($had_entry) {
|
% if ($had_entry) {
|
||||||
% $had_entry = 0;
|
% $had_entry = 0;
|
||||||
•
|
•
|
||||||
% }
|
% }
|
||||||
% for my $wagon ($group->carriages) {
|
% for my $wagon ($rev ? reverse $group->carriages : $group->carriages) {
|
||||||
% if (not ($wagon->is_locomotive or $wagon->is_powercar)) {
|
% if (not ($wagon->is_locomotive or $wagon->is_powercar)) {
|
||||||
% $had_entry = 1;
|
% $had_entry = 1;
|
||||||
% if ($wagon->is_closed) {
|
% if ($wagon->is_closed) {
|
||||||
|
|
Loading…
Reference in a new issue