Changeset 2081 for trunk/LATMOS-Accounts

Timestamp:

09/18/17 19:49:35 (7 years ago)

Author:

nanardon

Message:

kill functions related to requests

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

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

@@ -849 +849 @@
 }
 
-=head2 get_datarequest ($id)
-
-Return user request C<$id>
-
-=cut
-
-sub get_datarequest {
-    my ($self, $id) = @_;
-
-    my $sth = $self->db->prepare(q{
-        select name from request
-        where id = ?
-        });
-    $sth->execute($id);
-    if (my $res = $sth->fetchrow_hashref) {
-        my $accreq = $self->get_object('accreq', $res->{name});
-        return LATMOS::Accounts::Bases::Sql::DataRequest->new($accreq, $id);
-    } else {
-        return;
-    }
-}
-
-=head2 list_requests
-
-list user request currently waiting in base
-
-=cut
-
-sub list_requests {
-    my ($self, $due) = @_;
-
-    my $sth = $self->db->prepare(
-        sprintf(
-            q{
-            select id from request
-            where done is null
-            %s
-            order by apply
-            },
-            defined($due)
-                ? 'and apply ' . ($due ? '<' : '>=') . ' now()'
-                : ''
-        )
-    );
-    $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, $req)
-
-Return the list of pending request for a specific object
-
-C<$req> is an optional forms name to limit search
-
-=cut
-
-sub list_request_by_object {
-    my ($self, $otype, $id, $req) = @_;
-
-    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 = ?
-    } .
-    ($req ? ' and request.name = ? ' : '')
-    . q{
-        order by apply
-    });
-    $sth->execute($otype, $id, ($req ? ($req) : ()));
-    my @ids;
-    while (my $res = $sth->fetchrow_hashref) {
-        push(@ids, $res->{id});
-    }
-
-    @ids
-}
-
-=head2 list_pending_requests
-
-List user request to apply
-
-=cut
-
-sub list_pending_requests {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare(q{
-        select id from request
-        where done is null
-            and apply < now()
-        order by apply
-    });
-    $sth->execute;
-    my @ids;
-    while (my $res = $sth->fetchrow_hashref) {
-        push(@ids, $res->{id});
-    }
-
-    @ids
-}
-
-=head2 list_auto_pending_requests
-
-List automatic request
-
-=cut
-
-sub list_auto_pending_requests {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare(q{
-        select id from request
-        where done is null
-            and apply < now()
-            and automated = true
-        order by apply
-    });
-    $sth->execute;
-    my @ids;
-    while (my $res = $sth->fetchrow_hashref) {
-        push(@ids, $res->{id});
-    }
-
-    @ids
-}
-
 sub ReportChange {
     my ($self, $otype, $name, $ref, $changetype, $message, @args) = @_;