Index: openacs-4/packages/ecommerce/www/admin/orders/address-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/address-add-3.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/www/admin/orders/address-add-3.tcl	20 Apr 2001 20:51:14 -0000	1.1
+++ openacs-4/packages/ecommerce/www/admin/orders/address-add-3.tcl	29 Jan 2002 00:11:46 -0000	1.2
@@ -25,16 +25,16 @@
 # insert the address into ec_addresses, update the address in ec_orders
 
 db_transaction {
-  set address_id [db_string address_id_select "select ec_address_id_sequence.nextval from dual"]
-  set user_id [db_string user_id_select "select user_id from ec_orders where order_id=:order_id"]
+    set address_id [db_nextval ec_address_id_sequence]
+    set user_id [db_string user_id_select "select user_id from ec_orders where order_id=:order_id"]
 
-  db_dml address_insert "insert into ec_addresses
+    db_dml address_insert "insert into ec_addresses
   (address_id, user_id, address_type, attn, line1, line2, city, usps_abbrev, full_state_name, zip_code, country_code, phone, phone_time)
   values
   (:address_id, :user_id, 'shipping', :attn, :line1, :line2, :city, :usps_abbrev, :full_state_name, :zip_code, :country_code, :phone, :phone_time)
   "
 
-  db_dml ec_orders_update "update ec_orders set shipping_address=:address_id where order_id=:order_id"
+    db_dml ec_orders_update "update ec_orders set shipping_address=:address_id where order_id=:order_id"
 }
 
 ad_returnredirect "one?[export_url_vars order_id]"