1 |
dpavlin |
56 |
<%init> |
2 |
|
|
my $landscapes = Transports::Model::LandscapeCollection->new(); |
3 |
|
|
$landscapes->unlimit; |
4 |
dpavlin |
64 |
|
5 |
|
|
sub admin_link { |
6 |
|
|
my $label = shift; |
7 |
|
|
my $url = join('', @_); |
8 |
|
|
if (Jifty->web->current_user->admin) { |
9 |
|
|
return Jifty->web->link( label => $label, url => $url ); |
10 |
|
|
} else { |
11 |
|
|
return $label; |
12 |
|
|
} |
13 |
|
|
} |
14 |
|
|
|
15 |
dpavlin |
56 |
</%init> |
16 |
|
|
<&|/_elements/wrapper&> |
17 |
|
|
|
18 |
dpavlin |
64 |
<div class="outer-landscapes"> |
19 |
|
|
|
20 |
dpavlin |
56 |
% while (my $l = $landscapes->next) { |
21 |
dpavlin |
64 |
<div class="float-left boxed"> |
22 |
dpavlin |
56 |
|
23 |
dpavlin |
64 |
<b><% $l->name %></b> |
24 |
dpavlin |
56 |
|
25 |
dpavlin |
64 |
<br/><small> |
26 |
dpavlin |
56 |
|
27 |
dpavlin |
64 |
Source systems: |
28 |
|
|
<ul> |
29 |
|
|
% foreach my $s ( sort { $a->name cmp $b->name } @{$l->sources->items_array_ref} ) { |
30 |
|
|
<li><% admin_link( $s->name, '/source/' . $s->id ) %></li> |
31 |
|
|
% } |
32 |
|
|
</ul> |
33 |
dpavlin |
56 |
|
34 |
dpavlin |
64 |
Destination systems: |
35 |
|
|
<ul> |
36 |
|
|
% foreach my $d ( sort { $a->name cmp $b->name } @{$l->destinations->items_array_ref} ) { |
37 |
|
|
<li><% admin_link( $d->name, '/destination/' . $d->id ) %></li> |
38 |
dpavlin |
56 |
% } |
39 |
|
|
</ul> |
40 |
|
|
|
41 |
dpavlin |
64 |
</small> |
42 |
|
|
|
43 |
|
|
</div> |
44 |
|
|
|
45 |
|
|
% } # while |
46 |
|
|
|
47 |
|
|
</div> |
48 |
|
|
|
49 |
dpavlin |
56 |
</&> |