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

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

sub admin_link {
        my ($label, $type, $id) = @_;
        if (Jifty->web->current_user->admin) {
                return Jifty->web->link(
                        label => $label,
                        onclick => {
                                replace_with => '/systems/edit',
                                args => {
                                        type => $type,
                                        id => $id,
                                },
                        },
                );
        } else {
                return $label;
        }
}

</%init>

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

Add new:
<% admin_link( 'source', 'Source', 0 ) %>
<% admin_link( 'destination', 'Destination', 0 ) %>

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