diff --git a/lib/rt/admin.pm b/lib/rt/admin.pm index a8fa04b..0962b12 100644 --- a/lib/rt/admin.pm +++ b/lib/rt/admin.pm @@ -4,6 +4,8 @@ use configuration ':all'; use app; use utf8; +use Data::Dump qw( dump ); + use Exporter 'import'; # what we want to export eventually our @EXPORT_OK = qw/rt_admin/; @@ -32,7 +34,7 @@ sub rt_admin { $$res{template} = 'administration'; $$res{params} = { login => $$session{login} - , admin => 1 # we know it, or we couldn't reach this + , admin => $$user{admin} , domains => $domains , alldomains => $alldomains , allusers => $allusers @@ -40,6 +42,7 @@ sub rt_admin { $app->disconnect(); }; + $res } diff --git a/views/administration.tt b/views/administration.tt index 658a8fa..44135b3 100644 --- a/views/administration.tt +++ b/views/administration.tt @@ -15,17 +15,17 @@ supprimer utilisateur - <% FOREACH pair IN alldomains.pairs %> + <% FOREACH d IN alldomains %> - <% pair.key %> - <% pair.value %> + <% d.domain %> + <% d.login %> - + - + @@ -44,17 +44,17 @@ administrateur - <% FOREACH pair IN allusers.pairs %> + <% FOREACH u IN allusers %> - <% pair.key %> + <% u.login %> - + - - <% IF pair.value == 1 %> + + <% IF u.admin == 1 %> <% ELSE %>