Index: openacs-4/packages/ecommerce/www/admin/products/extras-upload-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/products/extras-upload-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/products/extras-upload-2.tcl	3 Nov 2003 08:30:30 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/products/extras-upload-2.tcl	8 Mar 2004 19:46:14 -0000	1.4
@@ -48,7 +48,7 @@
 set csvfp [open $unix_file_name]
 
 set count 0
-while { [ns_getcsv $csvfp elements] != -1 } {
+while { [ec_gets_char_delimited_line $csvfp elements] != -1 } {
     incr count
     if { $count == 1 } {
 	# first time thru, we grab the number of columns and their names
@@ -67,7 +67,7 @@
 # 	}
 # 	set sql "$columns_sql ) $values_sql )"
 
-	set sql "update ec_custom_product_field_values set last_modified=(select sysdate from dual), last_modifying_user=:user_id, modified_ip_address=:ip"
+	set sql "update ec_custom_product_field_values set last_modified=sysdate, last_modifying_user=:user_id, modified_ip_address=:ip"
 
 	for { set i 0 } { $i < $number_of_columns } { incr i } {
 	  set var_name "var_$i"