Unverified Commit daae20b5 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

wagon order preview: add separators between wagon groups

parent 420de7ee

cpanfile.snapshot

+5 −5
Original line number Original line Diff line number Diff line
@@ -1832,12 +1832,12 @@ DISTRIBUTIONS 
      TimeDate 1.21

      TimeDate 1.21

    requirements:

    requirements:

      ExtUtils::MakeMaker 0

      ExtUtils::MakeMaker 0

  Travel-Status-DE-DBWagenreihung-0.10

  Travel-Status-DE-DBWagenreihung-0.11

    pathname: D/DE/DERF/Travel-Status-DE-DBWagenreihung-0.10.tar.gz

    pathname: D/DE/DERF/Travel-Status-DE-DBWagenreihung-0.11.tar.gz

    provides:

    provides:

      Travel::Status::DE::DBWagenreihung 0.10

      Travel::Status::DE::DBWagenreihung 0.11

      Travel::Status::DE::DBWagenreihung::Section 0.10

      Travel::Status::DE::DBWagenreihung::Section 0.11

      Travel::Status::DE::DBWagenreihung::Wagon 0.10

      Travel::Status::DE::DBWagenreihung::Wagon 0.11

    requirements:

    requirements:

      Carp 0

      Carp 0

      Class::Accessor 0

      Class::Accessor 0

templates/_train_details.html.ep

+5 −0
Original line number Original line Diff line number Diff line
@@ -125,10 +125,15 @@ 
%     }

%     }

      <a href="/_wr/<%= $departure->{train_no} %>/<%= $departure->{wr_link} %>?e=<%= $departure->{direction} // '' %>">

      <a href="/_wr/<%= $departure->{train_no} %>/<%= $departure->{wr_link} %>?e=<%= $departure->{direction} // '' %>">

      %= $direction

      %= $direction

%     my $gi;

%     for my $wagon (@wagons) {

%     for my $wagon (@wagons) {

%       if (not ($wagon->is_locomotive or $wagon->is_powercar)) {

%       if (not ($wagon->is_locomotive or $wagon->is_powercar)) {

%         if (defined $gi and $gi != $wagon->group_index) {

            •

%         }

%=        $wagon->number || ($wagon->type =~ m{AB} ? '½' : $wagon->type =~ m{A} ? '1.' : $wagon->type =~ m{B} ? '2.' : '?' )

%=        $wagon->number || ($wagon->type =~ m{AB} ? '½' : $wagon->type =~ m{A} ? '1.' : $wagon->type =~ m{B} ? '2.' : '?' )

%       }

%       }

%       $gi = $wagon->group_index;

%     }

%     }

      %= $direction

      %= $direction

      </a>

      </a>