blob: c013cd643bb2e11993d9a5d9c6c2a81f53af134f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
% if (@{$departures}) {
<div class="displayclean">
<ul>
% my $i = 0;
% for my $departure (@{$departures}) {
% $i++;
<li>
% my $linetype = q{};
% if ( $departure->{train} =~ m{ ^ S \s? \d{1,2} $ }x ) {
% $linetype = 'sbahn';
% }
<span class="line <%= $linetype %>">
%= $departure->{train}
</span>
% if ($departure->{moreinfo} and @{$departure->{moreinfo}}) {
<span class="moreinfo">
<ul>
% for my $pair (@{$departure->{moreinfo}}) {
<li>
% if ($pair->[0]->isa('DateTime')) {
%= $pair->[0]->strftime('%H:%M')
% }
% else {
%= $pair->[0]
% }
:
<span class="reason">
%= $pair->[1]
</span>
</li>
% }
</ul>
</span>
% }
% if ($departure->{info} and length $departure->{info}) {
<span class="info">
%= $departure->{info}
</span>
% }
% else {
<span class="route">
% my $via_max = @{$departure->{via}};
% my $via_cur = 0;
% for my $stop (@{$departure->{via}}) {
% $via_cur++;
<%= $stop %><% if ($via_cur < $via_max) { %> - <% } %>
% }
</span>
% }
% my $extraclasses = q{};
% if ($departure->{is_cancelled}) {
% $extraclasses .= ' cancelled';
% }
<span class="dest <%= $extraclasses %>">
%= $departure->{destination}
</span>
<span class="countdown">
% if ($departure->{delay}) {
<span class="delay">(+<%= $departure->{delay} %>)</span>
% }
<span class="platform">
%= $departure->{platform}
</span>
</span>
<span class="time">
%= $departure->{time}
</span>
</li>
<!--
% if ($departure->{info}) {
<div class="info">
%= $departure->{info}
</div>
% }
-->
% }
</ul>
</div> <!-- displayclean -->
% }
% else {
<p>
DB-Fakedisplay displays the next departures at a DB station, just like the big
LC display in the station itself.
</p>
% }
|
