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&>

<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	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	</&>