Index: openacs-4/packages/cms/tcl/rel-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/tcl/rel-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/cms/tcl/rel-procs.tcl	15 Aug 2002 03:39:34 -0000	1.4
+++ openacs-4/packages/cms/tcl/rel-procs.tcl	17 May 2003 10:23:15 -0000	1.5
@@ -1,12 +1,8 @@
-
 # @namespace cms_rel
-
 # Procedures for managing relation items and child items
 
 namespace eval cms_rel {}
 
-
-
 ad_proc -public cms_rel::sort_related_item_order { item_id } {
 
  @public sort_related_item_order
@@ -24,16 +20,13 @@
     db_transaction {
 
 	# grab all related items ordered by order_n, rel_id
-        set related_items [db_list srio_get_related_items ""]
+        set related_items [db_list get_related_items ""]
 
 	# assign each related items a new order_n
 	set i 0
 	foreach rel_id $related_items {
 	
-	    db_dml "
-  	        update cr_item_rels
-                  set order_n = :i
-                  where rel_id = :rel_id"
+	    db_dml reorder {}
 
 	    incr i
 	}
@@ -59,16 +52,13 @@
     db_transaction {
 
 	# grab all related items ordered by order_n, rel_id
-        set child_items [db_list scio_get_child_order ""]
+        set child_items [db_list get_child_order ""]
 
 	# assign each related items a new order_n
 	set i 0
 	foreach rel_id $child_items {
 	
-	    db_dml "
-  	        update cr_child_rels
-                  set order_n = :i
-                  where rel_id = :rel_id"
+	    db_dml reorder {}
 
 	    incr i
 	}