Changeset 303

Timestamp:

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

Author:

nanardon

Message:

• tag 1.01

Files:

• branches/1/lib/Vote/Model/Vote.pm (modified) (1 diff)
• tags/1.01 (copied) (copied from branches/1)
• tags/1.01/lib/Vote/Model/Vote.pm (modified) (1 diff)
• trunk/lib/Epoll/DB.pm (modified) (1 diff)

branches/1/lib/Vote/Model/Vote.pm

@@ -144 +144 @@
     my @online_f = qw(label start end owner password);
 
-    $self->db->do(q{set DATESTYLE to 'DMY'});
+    # $self->db->do(q{set DATESTYLE to 'DMY'});
     if (grep { exists($attr{$_}) } @online_f) {
         my $sth = $self->db->prepare_cached(

tags/1.01/lib/Vote/Model/Vote.pm

@@ -144 +144 @@
     my @online_f = qw(label start end owner password);
 
-    $self->db->do(q{set DATESTYLE to 'DMY'});
+    # $self->db->do(q{set DATESTYLE to 'DMY'});
     if (grep { exists($attr{$_}) } @online_f) {
         my $sth = $self->db->prepare_cached(

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
         }
     );