Annotation of /trunk/web/templates/systems/landscapes

<%init>
my $landscapes = Transports::Model::LandscapeCollection->new();
$landscapes->unlimit;

sub admin_link {
        my $label = shift;
        my $url = join('', @_);
        if (Jifty->web->current_user->admin) {
                return Jifty->web->link( label => $label, url => $url );
        } else {
                return $label;
        }
}

</%init>
<&|/_elements/wrapper&>

% if (not Jifty->web->current_user->id) {
<% Jifty->web->redirect( '/login/landscapes' ) %>
% } else {

<div class="outer-landscapes">

% while (my $l = $landscapes->next) {
        <div class="float-left boxed">

<b><% $l->name %></b>

<br/><small>

Source systems:
<ul>
% foreach my $s ( sort { $a->name cmp $b->name } @{$l->sources->items_array_ref} ) {
  <li><% admin_link( $s->name, '/source/' . $s->id ) %></li>
% }
</ul>

Destination systems:
<ul>
% foreach my $d ( sort { $a->name cmp $b->name } @{$l->destinations->items_array_ref} ) {
  <li><% admin_link( $d->name, '/destination/' . $d->id ) %></li>
% }
</ul>

</small>

        </div>

% } # while

</div>

% }

</&>
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			% if (not Jifty->web->current_user->id) {
19			<% Jifty->web->redirect( '/login/landscapes' ) %>
20			% } else {
21
22	dpavlin	64	<div class="outer-landscapes">
23
24	dpavlin	56	% while (my $l = $landscapes->next) {
25	dpavlin	64	<div class="float-left boxed">
26	dpavlin	56
27	dpavlin	64	<b><% $l->name %></b>
28	dpavlin	56
29	dpavlin	64	<br/><small>
30	dpavlin	56
31	dpavlin	64	Source systems:
32			<ul>
33			% foreach my $s ( sort { $a->name cmp $b->name } @{$l->sources->items_array_ref} ) {
34			<li><% admin_link( $s->name, '/source/' . $s->id ) %></li>
35			% }
36			</ul>
37	dpavlin	56
38	dpavlin	64	Destination systems:
39			<ul>
40			% foreach my $d ( sort { $a->name cmp $b->name } @{$l->destinations->items_array_ref} ) {
41			<li><% admin_link( $d->name, '/destination/' . $d->id ) %></li>
42	dpavlin	56	% }
43			</ul>
44
45	dpavlin	64	</small>
46
47			</div>
48
49			% } # while
50
51			</div>
52
53	dpavlin	56	% }
54
55			</&>