Index: openacs-4/packages/poll/www/poll-ae-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/poll/www/poll-ae-oracle.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/poll/www/poll-ae-oracle.xql	3 Sep 2004 10:56:50 -0000	1.1
+++ openacs-4/packages/poll/www/poll-ae-oracle.xql	2 Aug 2005 21:38:19 -0000	1.2
@@ -6,12 +6,17 @@
 <fullquery name="new_poll">
 
       <querytext>
-      declare
+       declare
        id integer;
        begin
        id :=  poll.new(
                       p_poll_id => :poll_id,
-                      $field_insert_list,
+	              p_name => :name,
+	              p_question => :question,
+		      p_start_date => to_date(:start_date,'YYYY-MM-DD'),
+                      p_end_date =>  to_date(:end_date,'YYYY-MM-DD'),
+		      p_enabled => :enabled_p,
+		      p_require_registration_p => :require_registration_p,
                       p_package_id => :package_id,
                       p_creation_user => :user_id
          );
Index: openacs-4/packages/poll/www/poll-ae-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/poll/www/poll-ae-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/poll/www/poll-ae-postgresql.xql	3 Sep 2004 10:56:50 -0000	1.1
+++ openacs-4/packages/poll/www/poll-ae-postgresql.xql	2 Aug 2005 21:38:19 -0000	1.2
@@ -3,10 +3,14 @@
   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
   <fullquery name="new_poll">
         <querytext>
-        
-         select poll__new(
-                         :poll_id,
-                         $field_insert_list_pg,
+		 select poll__new(		
+                         :poll_id,	
+	                 :name,
+	                 :question,
+			 to_date(:start_date,'YYYY-MM-DD'),
+                         to_date(:end_date,'YYYY-MM-DD'),
+			 :enabled_p,
+			 :require_registration_p,
                          :package_id,
                          :user_id
           ); 
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
 	    }