Changeset 1986 for trunk/LATMOS-Accounts-Web

Timestamp:

04/20/17 18:30:01 (7 years ago)

Author:

nanardon

Message:

Add function: is user allow to create object

File:

• trunk/LATMOS-Accounts-Web/lib/LATMOS/Accounts/Web/Model/Accounts.pm (modified) (1 diff)

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

@@ -120 +120 @@
 }
 
+sub CanCreateObjects {
+    my ($self, @otype) = @_;
+
+    my $db = $self->db;
+
+    if (!@otype) {
+        @otype = $db->list_supported_objects;
+    }
+
+    foreach (@otype) {
+        if (!$db->check_acl($_, '@CREATE', 'w')) {
+            return;
+        }
+    }
+    return 1;
+}
+
 # Such function must not be here, but in LATMOS::Accounts
 # But code does not allow this at time