Index: openacs-4/packages/oct-election/www/election.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/oct-election/www/election.tcl,v
diff -u -r1.3.2.3 -r1.3.2.4
--- openacs-4/packages/oct-election/www/election.tcl	17 Nov 2006 15:10:29 -0000	1.3.2.3
+++ openacs-4/packages/oct-election/www/election.tcl	9 Sep 2013 14:48:53 -0000	1.3.2.4
@@ -10,7 +10,7 @@
 set valid_voter_p [lindex $valid_voter 0]
 set valid_voter_text [lindex $valid_voter 1]
 
-db_1row get_election {
+if {![db_0or1row get_election {
     select start_time,
            end_time,
            vote_forum_cutoff,
@@ -20,7 +20,9 @@
            (case when now() > start_time then 1 else 0 end) as past_start_p,
            (case when now() > end_time then 1 else 0 end) as past_end_p
       from oct_election
-     where election_id = :election_id
+     where election_id = :election_id and election_id <> 2
+}]} {
+    ad_returnredirect "election2"
 }
 
 set pretty_start_time [lc_time_fmt $start_time %c]