Changeset 1334 for trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model

Timestamp:

05/04/15 18:23:58 (9 years ago)

Author:

nanardon

Message:

Add jquery ui menu instead flat list

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm (modified) (3 diffs)

trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm

@@ -24 +24 @@
 =cut
 
+=head1 FUNCTIONS
+
+=cut
+
 sub new {
     my ($class) = @_;
@@ -29 +33 @@
         ->new(LATMOS::Accounts::Web->config->{config}),
         $class);
+}
+
+sub ACCEPT_CONTEXT {
+    my ($self, $c, $form, $object, $base) = @_;
+    $self->{c} = $c;
+    $self;
 }
 
@@ -43 +53 @@
     $self->{_default_base}->wexported(1);
     $self->{_default_base}
+}
+
+=head2 obj_to_label($ref)
+
+Return a proper label to display for each object
+
+=cut
+
+sub obj_to_label {
+    my ($self, $ref) = @_;
+    my $uri_part = {
+        user => 'Utilisateurs',
+        group => 'Groupes',
+        nethost => 'HÎtes réseaux',
+        netzone => 'Zones réseau',
+        site => 'Sites',
+        aliases => 'Alias',
+        service => 'Services',
+    }->{$ref};
+}
+
+sub obj_to_uri {
+    my ($self, $ref, $id) = @_;
+    my $uri_part = {
+        user => 'users',
+        group => 'groups',
+        nethost => 'nethosts',
+        netzone => 'netzones',
+        site => 'sites',
+        aliases => 'aliases',
+        service => 'services',
+    }->{$ref} || $ref;
+
+    return $self->{c}->uri_for('/', $uri_part, ($id ? $id : ()));
 }