Changeset 303 for trunk

Timestamp:

05/17/10 23:27:27 (14 years ago)

Author:

nanardon

Message:

• tag 1.01

File:

• trunk/lib/Epoll/DB.pm (modified) (1 diff)

trunk/lib/Epoll/DB.pm

@@ -215 +215 @@
     my ($self, $mail) = @_;
     $mail or return;
-    my $finder = $self->db->prepare_cached(
-        q{select poll, date from voting left join signing
-          on voting.key = signing.key
-          where mail = lower($1)
-          order by date desc
+    my $finder = $self->db->prepare_cached(q{
+        select poll.id, date from poll join
+        subpoll on poll.id = subpoll.pollid
+        join voters on voters.poll = poll.id
+        left join signing on
+          signing.subpoll = subpoll.id and
+          signing.voters = voters.key
+        where mail = lower($1)
+        group by poll.id, date
+        order by date desc
         }
     );