Ignore:
Timestamp:
04/14/14 17:11:40 (10 years ago)
Author:
nanardon
Message:

add label for objects

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Controller/Root.pm

    r1207 r1241  
    44use warnings; 
    55use base 'Catalyst::Controller'; 
     6use utf8; 
    67 
    78# 
    … …  
    9495        netzone => 'netzones', 
    9596        site => 'sites', 
     97        aliases => 'aliases', 
     98    }->{$ref} || $ref; 
     99} 
     100 
     101sub obj_to_label : Private { 
     102    my ($self, $c, $ref) = @_; 
     103    my $uri_part = { 
     104        user => 'Utilisateurs', 
     105        group => 'Groupes', 
     106        nethost => 'HÃŽtes réseaux', 
     107        netzone => 'Zones réseau', 
     108        site => 'Sites', 
     109        aliases => 'Alias', 
    96110    }->{$ref} || $ref; 
    97111} 
Note: See TracChangeset for help on using the changeset viewer.