Changeset 1096

Timestamp:

08/07/12 18:26:21 (12 years ago)

Author:

nanardon

Message:

List pending request on left menu

Location:

trunk

Files:

• LATMOS-Accounts-Web/root/html/includes/sidebar.tt (modified) (1 diff)
• LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql.pm (modified) (1 diff)

trunk/LATMOS-Accounts-Web/root/html/includes/sidebar.tt

@@ +1 @@
+[% reqlist = \c.model('Accounts').db.list_requests %]
+[% reqlistdue = \c.model('Accounts').db.list_requests(1) %]
+[% IF reqlist.size %]
+<ul>
+[% IF reqlistdue.size %]
+<li>
+<a href="[% c.uri_for('/admin', 'requests') %]">[% reqlist.size %] requêtes à 
+valider</a>
+</li>
+[% END %]
+<li>
+<a href="[% c.uri_for('/admin', 'requests') %]">[% reqlist.size %] requêtes</a>
+</li>
+</ul>
+[% END %]
+
+
+
 [% FOREACH h = c.model('Accounts').db.search_objects('accreq', 'exported=*') %]
 [% IF loop.first %]

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

@@ -492 +492 @@
 
 sub list_requests {
-    my ($self) = @_;
-
-    my $sth = $self->db->prepare(q{
-        select id from request
-        where done is null
-        order by apply
-    });
+    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;