Index: openacs-4/packages/cms/www/modules/items/children.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/children.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/items/children.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/items/children.tcl	8 Jun 2001 01:44:53 -0000	1.2
@@ -13,7 +13,8 @@
   -request_error
 
 # create a form to add child items
-set query "
+
+template::query get_child_types child_types multilist "
   select
     t.pretty_name, c.child_type
   from
@@ -23,8 +24,6 @@
   and
     c.child_type = t.object_type"
 
-query child_types multilist $query
-
 # do not display template if this content type does not allow children
 if { [llength $child_types] == 0 } { adp_abort }
 
@@ -59,10 +58,12 @@
   order by
     t.pretty_name, title"
 
-#query children multirow $query
+#template::query children multirow $query
 
 
-set query "
+
+
+template::query get_children children multirow "
   select
     r.rel_id,
     r.child_id item_id,
@@ -86,5 +87,3 @@
   order by 
     order_n, title
 " 
-
-query children multirow $query