Commit 9e92134e authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

add quick&dirty wagon order integration

parent b41f8a18

README.md

+1 −0
Original line number Diff line number Diff line
@@ -10,6 +10,7 @@ Dependencies 
 * Cache::File (part of the Cache module)

 * Mojolicious

 * Mojolicious::Plugin::BrowserDetect

 * Travel::Status::DE::DBWagenreihung >= 0.00

 * Travel::Status::DE::DeutscheBahn >= 2.03

 * Travel::Status::DE::IRIS >= 1.21

index.pl

+21 −0
Original line number Diff line number Diff line
@@ -6,6 +6,7 @@ use Cache::File; 
use File::Slurp qw(read_file write_file);

use List::Util qw(max);

use List::MoreUtils qw();

use Travel::Status::DE::DBWagenreihung;

use Travel::Status::DE::HAFAS;

use Travel::Status::DE::HAFAS::StopFinder;

use Travel::Status::DE::IRIS;
@@ -824,6 +825,9 @@ sub handle_request { 
						map { $_->type . q{ } . $_->train_no }

						  $result->replacement_for

					],

					wr_link => $result->sched_departure

					? $result->sched_departure->strftime('%Y%m%d%H%M')

					: undef,

				}

			);

		}
@@ -1010,6 +1014,23 @@ get '/_impressum' => sub { 
	$self->render( 'imprint', hide_opts => 1 );

};



get '/_wr/:train/:departure' => sub {

	my $self      = shift;

	my $train     = $self->stash('train');

	my $departure = $self->stash('departure');



	my $wr = Travel::Status::DE::DBWagenreihung->new(

		departure    => $departure,

		train_number => $train,

	);



	$self->render(

		'wagenreihung',

		wr        => $wr,

		hide_opts => 1,

	);

};



app->defaults( layout => 'default' );

app->sessions->default_expiration( 3600 * 24 * 28 );

public/static/default.css

+4 −0
Original line number Diff line number Diff line
@@ -204,6 +204,10 @@ div.app li .moreinfo .minfo { 
	color: #ff0000;

}



div.app li .moreinfo .verbose {

	margin-bottom: 0.6em;

}



div.app li .moreinfo .timeinfo {

	margin-bottom: 0.6em;

}

templates/app.html.ep

+6 −0
Original line number Diff line number Diff line
@@ -143,6 +143,12 @@ 
%       }

%     }

      </div> <!-- timeinfo -->

%     if ($linetype eq 'fern' and $departure->{wr_link}) {

        <div class="verbose">

          <a href="/_wr/<%= $departure->{train_no} %>/<%= $departure->{wr_link} %>">Wagenreihung</a>

        </div>

%     }



%   }

%   if ($departure->{route_post_diff} and @{$departure->{route_post_diff}}) {

      <div class="mroute">

templates/layouts/default.html.ep

+2 −0
Original line number Diff line number Diff line
@@ -232,6 +232,8 @@ nur Züge via Bochum oder Hamm)</li> 
<a href="https://finalrewind.org/projects/db-fakedisplay/">db-infoscreen</a>

v<%= stash('version') // '???' %><br/>

Backends:<br/>

<!--<a href="https://finalrewind.org/projects/Travel-Status-DE-DBWagenreihung/">-->Travel::Status::DE::DBWagenreihung<!--</a>-->

v<%= $Travel::Status::DE::DBWagenreihung::VERSION %><br/>

<a href="https://finalrewind.org/projects/Travel-Status-DE-DeutscheBahn/">Travel::Status::DE::HAFAS</a>

v<%= $Travel::Status::DE::HAFAS::VERSION %><br/>

<a href="https://finalrewind.org/projects/Travel-Status-DE-IRIS/">Travel::Status::DE::IRIS</a>