Index: openacs-4/packages/ecommerce/www/admin/products/add-4-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/add-4-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/admin/products/add-4-oracle.xql	10 Jul 2001 20:33:53 -0000	1.1
+++ openacs-4/packages/ecommerce/www/admin/products/add-4-oracle.xql	18 Jul 2001 05:40:46 -0000	1.2
@@ -40,5 +40,13 @@
       </querytext>
 </fullquery>
 
+
+<fullquery name="audit_info_sql">
+      <querytext>
+
+      sysdate, :user_id, :peeraddr
+
+      </querytext>
+</fullquery>
  
 </queryset>
Index: openacs-4/packages/ecommerce/www/admin/products/add-4-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/add-4-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/admin/products/add-4-postgresql.xql	10 Jul 2001 20:33:53 -0000	1.1
+++ openacs-4/packages/ecommerce/www/admin/products/add-4-postgresql.xql	18 Jul 2001 05:40:46 -0000	1.2
@@ -5,42 +5,55 @@
 
 <fullquery name="user_insert">      
       <querytext>
-      FIX ME PLSQL
-FIX ME PLSQL
 
-	begin
-	:1 := ec_product__new(product_id => :product_id,
-	object_type => 'ec_product',
-	creation_date => current_timestamp,
-	creation_user => :user_id,
-	creation_ip => :peeraddr,
-	context_id => :context_id,
-	product_name => :product_name, 
-	price => :price, 
-	sku => :sku,
-	one_line_description => :one_line_description, 
-	detailed_description => :detailed_description, 
-	search_keywords => :search_keywords, 
-	present_p => :present_p, 
-	stock_status => :stock_status,
-	dirname => :dirname, 
-	available_date => to_date(:available_date, 'YYYY-MM-DD'), 
-	color_list => :color_list, 
-	size_list => :size_list, 
-	style_list => :style_list, 
-	email_on_purchase_list => :email_on_purchase_list, 
-	url => :url,
-	no_shipping_avail_p => :no_shipping_avail_p, 
-	shipping => :shipping,
-	shipping_additional => :shipping_additional, 
-	weight => :weight, 
-	active_p => 't',
-	template_id => :template_id
+      declare
+	v_product_id		integer;
+      begin
+	v_product_id := ec_product__new(
+	:product_id,
+	:user_id,
+	:context_id,
+	:product_name, 
+	:price, 
+	:sku,
+	:one_line_description, 
+	:detailed_description, 
+	:search_keywords, 
+	:present_p, 
+	:stock_status,
+	:dirname, 
+	to_date(:available_date, 'YYYY-MM-DD'), 
+	:color_list, 
+	:size_list, 
+	:peeraddr
 	);
-	end;
+
+      update ec_products set style_list = :style_list,
+	email_on_purchase_list = :email_on_purchase_list,
+	url = :url,
+	no_shipping_avail_p = :no_shipping_avail_p,
+	shipping = :shipping,
+	shipping_additional = :shipping_additional,
+	weight = :weight,
+	active_p = 't',
+	template_id = :template_id
+	where product_id = :product_id;
+
+      return v_product_id;
+
+      end;
     
       </querytext>
 </fullquery>
 
+
+<fullquery name="audit_info_sql">
+      <querytext>
+
+      now(), :user_id, :peeraddr
+
+      </querytext>
+</fullquery>
+
  
 </queryset>
Index: openacs-4/packages/ecommerce/www/admin/products/add-4.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/add-4.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/admin/products/add-4.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/ecommerce/www/admin/products/add-4.tcl	18 Jul 2001 05:40:46 -0000	1.2
@@ -73,7 +73,10 @@
 
   # we have to generate audit information
   set audit_fields "last_modified, last_modifying_user, modified_ip_address"
-  set audit_info "sysdate, :user_id, :peeraddr"
+
+  # db_map this
+  # set audit_info "sysdate, :user_id, :peeraddr"
+  set audit_info [db_map audit_info_sql] 
     db_exec_plsql user_insert {
 	begin
 	:1 := ec_product.new(product_id => :product_id,