Changeset 1091 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

Timestamp:

08/03/12 09:07:20 (12 years ago)

Author:

nanardon

Message:

Add ACL support to datarequest

If the forms contains a list of validators and user match it, permissions are
granted,
If global acl config grant '@VALIDATE' over 'request' object and user match it,
permissions are granted,
and if nothing match, permissions are checked over the pointed object.

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm

@@ -487 +487 @@
 =head2 list_requests
 
-List user request currently waiting in base
+list user request currently waiting in base
 
 =cut
@@ -500 +500 @@
     });
     $sth->execute;
+    my @ids;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@ids, $res->{id});
+    }
+
+    @ids
+}
+
+=head2 list_requests_by_submitter ($id)
+
+list user request currently waiting in base ask by user C<$id>
+
+=cut
+
+sub list_requests_by_submitter {
+    my ($self, $id) = @_;
+
+    my $sth = $self->db->prepare(q{
+        select id from request
+        where done is null and user = ?
+        order by apply
+    });
+    $sth->execute($id);
+    my @ids;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@ids, $res->{id});
+    }
+
+    @ids
+}
+
+
+=head2 list_request_by_object ($otype, $id)
+
+Return the list of pending request for a specific object
+
+=cut
+
+sub list_request_by_object {
+    my ($self, $otype, $id) = @_;
+
+    my $sth = $self->db->prepare(q{
+        select * from request join
+        accreq on request.name = accreq.name
+        join accreq_attributes on accreq_attributes.okey = accreq.ikey
+        where
+        request.applied is NULL and
+        accreq_attributes.attr = 'oType' and
+        accreq_attributes.value = ?
+        and request.object = ?
+        order by apply
+    });
+    $sth->execute($otype, $id);
     my @ids;
     while (my $res = $sth->fetchrow_hashref) {