Changeset 198 for trunk/lib/Vote/DB/Poll.pm

Timestamp:

04/15/09 03:51:26 (15 years ago)

Author:

nanardon

Message:

• use new commit() and rollback()
• add add standalone create_poll function

File:

• trunk/lib/Vote/DB/Poll.pm (modified) (11 diffs)

trunk/lib/Vote/DB/Poll.pm

@@ -60 +60 @@
         $sth->execute((map { $attr{$_} } grep { exists $attr{$_} } @online_f), $self->voteid)
             or do {
-            $self->db->rollback;
+            $self->rollback;
             return;
         };
@@ -264 +264 @@
 
     $sth->execute($self->voteid, $label) or do {
-        $self->db->rollback;
+        $self->rollback;
         return;
     };
@@ -292 +292 @@
     );
     $sth->execute($vinfo->{key}, $referal) or do {
-        $self->db->rollback;
+        $self->rollback;
         return;
     };
@@ -306 +306 @@
         : $self->_register_ballot_clear($choice, $fchoice))
         or do {
-            self->db->rollback;
+            self->rollback;
             return;
         };
@@ -323 +323 @@
     $uid ||= Vote::DB::common::gen_uid();
     $addb->execute($uid, $self->voteid, scalar(@{$fchoice || []}) ? undef : 'f') or do {
-        self->db->rollback;
+        self->rollback;
         return;
     };
 
     $self->_register_ballot_items($uid, $choice, $fchoice) or do {
-        self->db->rollback;
+        self->rollback;
         return;
     };
@@ -357 +357 @@
     foreach (@{ $choice || []}) {
         $addbc->execute($uid, $_, 't') or do {
-            $self->db->rollback;
+            $self->rollback;
             return;
         };
@@ -365 +365 @@
         my $chkey = $self->find_choice_key($_);
         $addbc->execute($uid, $_, $chkey ? 't' : 'f') or do {
-            $self->db->rollback;
+            $self->rollback;
             return;
         };
@@ -421 +421 @@
     my $upd = $self->db->prepare_cached(q{update ballot_enc set decrypted = true where id = ?});
     if ($upd->execute($ballotid)) {
-        $self->db->commit;
+        $self->commit;
         return;
     } else {
-        $self->db->rollback;
+        $self->rollback;
         return 1;
     }
@@ -451 +451 @@
     }
     # everything went fine, saving!
-    $self->db->commit;
+    $self->commit;
 
     
@@ -715 +715 @@
     );
 
-    $sth->execute($self->voteid, $from, $to) or $self->db->rollback;
-    $self->db->commit;
+    $sth->execute($self->voteid, $from, $to) or $self->rollback;
+    $self->commit;
 }
 
@@ -754 +754 @@
         my ($mail, $name) = split(';', $line);
         $mail or do {
-            $self->db->rollback;
+            $self->rollback;
             return;
         };