5 |
</%args> |
</%args> |
6 |
<%init> |
<%init> |
7 |
|
|
8 |
|
sub growl { |
9 |
|
my ($level,$title,$message) = @_; |
10 |
|
print <<_END_OF_GROWL_; |
11 |
|
<script type="text/javascript"> |
12 |
|
new protoGrowl({ |
13 |
|
type: '$level', title: '$title', message: '$message', |
14 |
|
width: 400, height: 40, |
15 |
|
minWidth: 400, minHeight: 40, |
16 |
|
className: 'protogrowl', |
17 |
|
}); |
18 |
|
</script> |
19 |
|
_END_OF_GROWL_ |
20 |
|
}; |
21 |
|
|
22 |
warn "user_id: $user_id, op: $op, landscape_id: $landscape_id\n"; |
warn "user_id: $user_id, op: $op, landscape_id: $landscape_id\n"; |
23 |
|
|
24 |
if ($op eq 'delete') { |
if ($op eq 'delete') { |
28 |
landscape => $landscape_id |
landscape => $landscape_id |
29 |
); |
); |
30 |
if ($u->delete) { |
if ($u->delete) { |
31 |
# $m->out("Deleted ", $u->landscape->name); |
growl('ok','Deleted', $u->landscape->name . ' removed from ' . $u->user_on->name); |
32 |
} else { |
} else { |
33 |
$m->out("Problem while deleting ", $u->landscape->name); |
growl('error','Error',"Problem while deleting " . $u->landscape->name); |
34 |
} |
} |
35 |
|
|
36 |
} elsif ($op eq 'add') { |
} elsif ($op eq 'add') { |
40 |
landscape => $landscape_id, |
landscape => $landscape_id, |
41 |
)) { |
)) { |
42 |
# $m->out("Added ", $u->landscape->name); |
# $m->out("Added ", $u->landscape->name); |
43 |
|
growl('ok','Added', $u->landscape->name); |
44 |
} else { |
} else { |
45 |
$m->out("Problem while adding ", $landscape_id); |
growl('error','Error',"Problem while adding " . $landscape_id); |
46 |
} |
} |
47 |
} |
} |
48 |
|
|