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 -r1.3 -r1.4
--- openacs-4/packages/cms/tcl/rel-procs.tcl	20 Aug 2001 04:35:42 -0000	1.3
+++ openacs-4/packages/cms/tcl/rel-procs.tcl	15 Aug 2002 03:39:34 -0000	1.4
@@ -24,16 +24,7 @@
     db_transaction {
 
 	# grab all related items ordered by order_n, rel_id
-	template::query srio_get_related_items related_items onelist "
-            select
-              rel_id
-            from
-              cr_item_rels
-            where
-              item_id = :item_id
-            order by
-              order_n, rel_id
-        " 
+        set related_items [db_list srio_get_related_items ""]
 
 	# assign each related items a new order_n
 	set i 0
@@ -68,16 +59,7 @@
     db_transaction {
 
 	# grab all related items ordered by order_n, rel_id
-	template::query scio_get_child_order child_items onelist "
-            select
-              rel_id
-            from
-              cr_child_rels
-            where
-              parent_id = :item_id
-            order by
-              order_n, rel_id
-        " 
+        set child_items [db_list scio_get_child_order ""]
 
 	# assign each related items a new order_n
 	set i 0