Changeset 269 for trunk/lib/Epoll

Timestamp:

12/12/09 19:40:32 (15 years ago)

Author:

nanardon

Message:

• allow to delete ballot after poll (then keeping only results in DB)

Location:

trunk/lib/Epoll

Files:

• Controller/Admin.pm (modified) (1 diff)
• DB/Poll.pm (modified) (1 diff)
• DB/Poll/Results.pm (modified) (10 diffs)

trunk/lib/Epoll/Controller/Admin.pm

@@ -296 +296 @@
 }
 
+sub delete: LocalRegex('^(\w+)/delete$') {
+    my ($self, $c) = @_;
+    ($c->stash->{voteid}) = @{ $c->req->snippets || [] };
+    my $poll = $c->model('Vote')->results($c->stash->{voteid});
+
+    $poll->info or do {
+        $c->res->redirect($c->uri_for('/'));
+        return;
+    };
+
+    $c->forward('auth') or return;
+
+    if ($c->req->param('delete_ballot')) {
+        $c->stash->{template} = 'admin/delete_ballot_confirm.tt';
+        return;
+    }
+
+    if ($c->req->param('delete_ballot_confirm')) {
+        $poll->delete_ballots;
+        $c->response->redirect($c->uri_for($poll->uid));
+    }
+}
+
 sub ajaxsettings: LocalRegex('^(\w+)/ajaxsettings$') {
     my ($self, $c) = @_;

trunk/lib/Epoll/DB/Poll.pm

@@ -997 +997 @@
 }
 
+#################
+# CLEANING DATA #
+#################
+
+sub _delete_ballot {
+    my ($self) = @_;
+
+    foreach (
+        q{delete from ballot_item where id in (select id from ballot where
+        ballot.poll = ?)},
+        q{delete from ballot where poll = ?},
+        q{delete from ballot_enc where poll = ?},) {
+        my $req = $self->db->prepare($_);
+        $req->execute($self->voteid) or return;
+    }
+
+    return 1;
+}
+
 =head1 AUTHOR
 

trunk/lib/Epoll/DB/Poll/Results.pm

@@ -6 +6 @@
 use warnings;
 use base 'Epoll::DB::Poll';
+use XML::Simple;
+use vars qw($AUTOLOAD);
 
 =head1 NAME
@@ -18 +20 @@
 
 sub new {
-    my ($class, %args) = @_;
-
-    my $res = $class->SUPER::new(%args);
-    
-    return bless $res, $class;
-}
-
-sub absolute_majority {
+    my ($class, @args) = @_;
+
+    my $res = $class->SUPER::new(@args);
+
+    $res = bless $res, $class;
+    $res->load_static_data;
+    $res
+}
+
+sub AUTOLOAD {
+    my ($self, @args) = @_;
+    my ($constname, $sub) = $AUTOLOAD =~ m/(.*)::([^:]+)/;
+    $sub =~ /^__(.*)/ and die "No sub $1";
+    if ($self->{static_results}) {
+        return $self->{static_results}{$sub};
+    } else {
+        my $realsub = "__$sub";
+        return $self->$realsub(@args);
+    }
+}
+
+sub DESTROY {}
+
+sub load_static_data {
+    my ($self) = @_;
+    if (my $res = $self->info('static_results')) {
+        $self->{static_results} = XMLin(
+            $res,
+            ForceArray => ['results']
+        );
+    }
+}
+
+sub ballot_count {
+    my ($self) = @_;
+    if ($self->{static_results}) {
+        return $self->{static_results}{ballot_count};
+    } else {
+        return $self->SUPER::ballot_count();
+    }
+}
+
+sub __absolute_majority {
     my ($self) = @_;
     my $ballot_count = $self->voices_ballot_count;
@@ -31 +68 @@
 }    
 
-sub abstention {
+sub __abstention {
     my ($self) = @_;
     
@@ -48 +85 @@
 }
 
-sub ballot_count_nonull {not_empty_ballot_count(@_)}
-
-sub voices_ballot_count {
+sub __ballot_count_nonull {not_empty_ballot_count(@_)}
+
+sub __voices_ballot_count {
     my ($self) = @_;
     return $self->info('empty_ballot_has_voice')
@@ -57 +94 @@
 }
 
-sub valid_ballot_count {
+sub __valid_ballot_count {
     my ($self) = @_;
 
@@ -73 +110 @@
 }
 
-sub invalid_ballot_count {
+sub __invalid_ballot_count {
     my ($self) = @_;
 
@@ -89 +126 @@
 }
 
-sub empty_ballot_count {
+sub __empty_ballot_count {
     my ($self) = @_;
 
@@ -106 +143 @@
 }
 
-sub not_empty_ballot_count {
+sub __not_empty_ballot_count {
     my ($self) = @_;
 
@@ -133 +170 @@
 }
 
-sub results {
+sub __results {
     my ($self) = @_;
     $self->_results(
@@ -190 +227 @@
 }
 
+sub dump_results {
+    my ($self) = @_;
+    my $xml = XML::Simple->new(ForceArray => 1, RootName => 'results');
+    my %results;
+
+    foreach my $val (qw(
+        ballot_count
+        ),
+        map { s/^__//; $_ } grep { /^__/ } keys %{Epoll::DB::Poll::Results::}
+        ) {
+        $results{$val} = $self->$val();
+    }
+    $xml->XMLout({
+        %results
+    });
+}
+
+sub delete_ballots {
+    my ($self) = @_;
+
+    $self->param('static_results' => $self->dump_results);
+    $self->_delete_ballot;
+    $self->commit;
+    $self->{static_results} = XMLin(
+        $self->info('static_results'),
+        ForceArray => ['results']
+    );
+}
+
 =head1 AUTHOR