Commit 784c3d19 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Use new Travel::Status::DE::DeutscheBahn stuff

parent 3f19806f

Build.PL

+1 −1
Original line number Diff line number Diff line
@@ -17,7 +17,7 @@ Module::Build->new( 
		'File::ShareDir' => 0,

		'HTML::Template' => 0,

		'List::Util' => 0,

		'Travel::Status::DE::DeutscheBahn' => 0,

		'Travel::Status::DE::DeutscheBahn' => '0.04',

	},

	share_dir => 'share',

	sign => 1,

bin/db-fakedisplay

+2 −7
Original line number Diff line number Diff line
@@ -38,18 +38,13 @@ if (not defined $info) { 
	exit 1;

}



my @via = $info->route;

my $extra = $info->info;



$extra =~ s{ (?: ^ | , ) (?: p.nktlich | k [.] A [.] ) }{}x;



$template->param(

	time => $info->time,

	train => $info->train,

	via => [ map { { stop => $_ } } splice(@via, 0, 3) ],

	via => [ map { { stop => $_ } } $info->route_interesting(3) ],

	destination => $info->destination,

	platform => $info->platform,

	info => $extra,

	info => $info->info,

);



say $template->output;

share/template.html

+1 −1
Original line number Diff line number Diff line
@@ -45,7 +45,7 @@ 
	div.destination {

		top: 1.2em;

		left: 2.9em;

		width: 17em;

		width: 8em;

		font-size: 2em;

	}