Index: openacs-4/packages/poll/www/poll-ae.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/poll/www/poll-ae.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/poll/www/poll-ae.tcl	3 Sep 2004 10:56:50 -0000	1.1
+++ openacs-4/packages/poll/www/poll-ae.tcl	2 Aug 2005 21:38:19 -0000	1.2
@@ -4,6 +4,8 @@
 
     @author Robert Locke (rlocke@infiniteinfo.com)
     @creation-date 2003-01-13
+
+    
 } {
     poll_id:naturalnum,optional
 }
@@ -109,13 +111,12 @@
 if { [template::form is_valid poll] } {
     foreach field $fields {
 	set $field [template::element get_value poll $field]
-
 	if { [regexp {_p$} $field] } {
 	    if { [empty_string_p [set $field]] } {
 		set $field "f"
 	    }
 	}
-
+	
 	if { ![regexp {_date$} $field] } {
 	    lappend field_insert_list "p_$field => :$field"
             lappend field_insert_list_pg ":$field "
@@ -140,6 +141,9 @@
 	ad_require_permission $package_id create
 
 	if { ![db_string check_exists "select 1 from polls where poll_id = :poll_id" -default "0"] } {
+	    
+	    # NOTE: Change functions call since the user of $field_insert_list doesn't work 
+
 	    if { [catch {db_exec_plsql new_poll " " } ] } {
 		set db_error 1
 	    }