Index: openacs-4/packages/ecommerce/www/admin/orders/fulfill-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/orders/fulfill-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/ecommerce/www/admin/orders/fulfill-2.tcl	22 Aug 2001 04:20:41 -0000	1.3
+++ openacs-4/packages/ecommerce/www/admin/orders/fulfill-2.tcl	29 Jan 2002 00:11:46 -0000	1.4
@@ -102,7 +102,7 @@
 <hr>
 "
 
-set shipment_id [db_string get_new_ship_seq "select ec_shipment_id_sequence.nextval from dual"]
+set shipment_id [db_nextval ec_shipment_id_sequence]
 
 if { [info exists item_id] && ![empty_string_p item_id] } {
     set sql  "select i.item_id, p.product_name, p.one_line_description, p.product_id, i.price_charged, i.price_name, i.color_choice, i.size_choice, i.style_choice