Changeset 23

Timestamp:

03/11/09 03:34:27 (15 years ago)

Author:

nanardon

Message:

• admin page is fully working

Location:

trunk

Files:

• lib/Vote/Controller/Admin.pm (modified) (1 diff)
• lib/Vote/Model/Vote.pm (modified) (4 diffs)
• root/templates/admin/default.tt (modified) (1 diff)

trunk/lib/Vote/Controller/Admin.pm

@@ -50 +50 @@
         $vote->delete_choice($c->req->param('delch'))
             and $vote->db->commit;
+    } elsif ($c->req->param('label')) {
+        $vote->vote_param(
+            $id,
+            map { $_ => ($c->req->param($_) || undef) }
+            qw(label description start end choice_count free_choice)
+        ) and $vote->db->commit;
+    } elsif($c->req->param('delvoting')) {
+        $vote->delete_voting($c->req->param('delvoting'))
+            and $vote->db->commit;
+    } elsif ($c->req->param('mail')) {
+        $vote->addupd_voting($id, $c->req->param('id'), $c->req->param('mail'))
+            and $vote->db->commit;
     }
 }

trunk/lib/Vote/Model/Vote.pm

@@ -95 +95 @@
 }
 
+sub vote_param {
+    my ($self, $voteid, %attr) = @_;
+
+    keys %attr or return;
+
+    my $sth = $self->db->prepare_cached(
+        q{update poll set } .
+        join(',', map { qq("$_" = ?) } sort keys %attr) .
+        q{ where id = ?}
+    );
+    $sth->execute((map { $attr{$_} } sort keys %attr), $voteid)
+        or $self->db->rollback;
+}
+
 sub vote_status {
     my ($self, $id) = @_;
@@ -139 +153 @@
     my $sth = $self->db->prepare_cached(
         q{
-        select * from voting left join signing
+        select *, voting.key as vkey from voting left join signing
         on signing.key = voting.key
         where poll = ? order by voting.id
@@ -150 +164 @@
     }
     @people
+}
+
+sub vote_voting {
+    my ($self, $id) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select key from voting
+        where poll = ? order by voting.id
+        }
+    );
+    $sth->execute($id);
+    my @people;
+    while (my $res = $sth->fetchrow_hashref) {
+        push(@people, $res->{key});
+    }
+    @people
+}
+
+sub voting_info {
+    my ($self, $id) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{
+        select *, voting.key as vkey from voting left join signing
+        on signing.key = voting.key
+        where voting.key = ?
+        }
+    );
+    $sth->execute($id);
+    
+    my $res = $sth->fetchrow_hashref;
+    $sth->finish;
+    $res
 }
 
@@ -509 +557 @@
         $add->execute($voteid, $id, $mail);
     }
+}
+
+sub delete_voting {
+    my ($self, $key) = @_;
+
+    my $sth = $self->db->prepare_cached(
+        q{delete from voting where key = ?}
+    );
+
+    $sth->execute($key);
 }
 

trunk/root/templates/admin/default.tt

@@ -51 +51 @@
 <tr>
 <td valign="TOP">
-[% signing = [ vote.vote_signing(voteid) ] %]
-[% FOREACH voting = signing %]
-[% voting.id | html %] [% voting.mail | html %]<br>
+[% signing = vote.vote_voting(voteid) %]
+[% FOREACH thisvoting = signing %]
+[% voting = vote.voting_info(thisvoting) %]
+<form action="[% c.uri_for(voteid) %]">
+<input type="hidden" name="delvoting" value="[% voting.vkey %]">
+[% voting.id | html %] [% voting.mail | html %]
+<input type="submit" name="delete" value="delete"><br>
+</form>
 [% END %]
 </td>