Annotation of /trunk/web/templates/fragments/user_on_landscape

<%args>
$user_id
$op => '';
$landscape_id => 0
</%args>
<%init>

warn "user_id: $user_id, op: $op, landscape_id: $landscape_id\n";

if ($op eq 'delete') {
        my $u = Transports::Model::UserOnLandscape->new();
        $u->load_by_cols(
                user_on => $user_id,
                landscape => $landscape_id
        );
        if ($u->delete) {
#               $m->out("Deleted ", $u->landscape->name);
        } else {
                $m->out("Problem while deleting ", $u->landscape->name);
        }

} elsif ($op eq 'add') {
        my $u = Transports::Model::UserOnLandscape->new();
        if($u->create(
                user_on => $user_id,
                landscape => $landscape_id,
        )) {
#               $m->out("Added ", $u->landscape->name);
        } else {
                $m->out("Problem while adding ", $landscape_id);
        }
}

my $landscapes = Transports::Model::UserOnLandscapeCollection->new();
$landscapes->limit(
        column          => 'user_on',
        value           => $user_id,
        quote_value     => 0,
);

my $selected_landscape;
map { $selected_landscape->{ $_->landscape->id }++ } @{ $landscapes->items_array_ref };

my $all_landscapes = Transports::Model::LandscapeCollection->new();
$all_landscapes->unlimit;

</%init>

<div>
Landscapes:

<ul>
% while (my $l = $all_landscapes->next ) { 
<li>
%  if ($selected_landscape->{ $l->id }) {
<% $l->name %>
<% Jifty->web->link(
        label => 'remove' ,
        onclick => { args => { op => 'delete', landscape_id => $l->id }} 
) %>
%  } else {
<del><% $l->name %></del>
<% Jifty->web->link(
        label => 'add' ,
        onclick => { args => { op => 'add', landscape_id => $l->id }} 
) %>
%  }
</li>
% }
</ul>

</div>

1	dpavlin	51	<%args>
2			$user_id
3	dpavlin	62	$op => '';
4			$landscape_id => 0
5	dpavlin	51	</%args>
6			<%init>
7
8	dpavlin	62	warn "user_id: $user_id, op: $op, landscape_id: $landscape_id\n";
9
10			if ($op eq 'delete') {
11	dpavlin	51	my $u = Transports::Model::UserOnLandscape->new();
12	dpavlin	60	$u->load_by_cols(
13			user_on => $user_id,
14	dpavlin	62	landscape => $landscape_id
15	dpavlin	60	);
16	dpavlin	62	if ($u->delete) {
17			# $m->out("Deleted ", $u->landscape->name);
18			} else {
19			$m->out("Problem while deleting ", $u->landscape->name);
20			}
21	dpavlin	51
22	dpavlin	62	} elsif ($op eq 'add') {
23	dpavlin	60	my $u = Transports::Model::UserOnLandscape->new();
24	dpavlin	62	if($u->create(
25	dpavlin	60	user_on => $user_id,
26	dpavlin	62	landscape => $landscape_id,
27			)) {
28			# $m->out("Added ", $u->landscape->name);
29			} else {
30			$m->out("Problem while adding ", $landscape_id);
31			}
32	dpavlin	60	}
33
34	dpavlin	51	my $landscapes = Transports::Model::UserOnLandscapeCollection->new();
35			$landscapes->limit(
36			column => 'user_on',
37			value => $user_id,
38			quote_value => 0,
39			);
40
41	dpavlin	60	my $selected_landscape;
42			map { $selected_landscape->{ $_->landscape->id }++ } @{ $landscapes->items_array_ref };
43
44			my $all_landscapes = Transports::Model::LandscapeCollection->new();
45			$all_landscapes->unlimit;
46
47	dpavlin	51	</%init>
48
49	dpavlin	60	<div>
50	dpavlin	51	Landscapes:
51	dpavlin	60
52	dpavlin	51	<ul>
53	dpavlin	60	% while (my $l = $all_landscapes->next ) {
54			<li>
55			% if ($selected_landscape->{ $l->id }) {
56			<% $l->name %>
57	dpavlin	51	<% Jifty->web->link(
58			label => 'remove' ,
59	dpavlin	62	onclick => { args => { op => 'delete', landscape_id => $l->id }}
60	dpavlin	51	) %>
61	dpavlin	60	% } else {
62			<del><% $l->name %></del>
63			<% Jifty->web->link(
64			label => 'add' ,
65	dpavlin	62	onclick => { args => { op => 'add', landscape_id => $l->id }}
66	dpavlin	60	) %>
67			% }
68	dpavlin	51	</li>
69			% }
70			</ul>
71
72	dpavlin	60	</div>
73	dpavlin	51