Index: openacs-4/packages/cms/www/modules/types/relations.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/types/relations.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/cms/www/modules/types/relations.tcl	20 Apr 2001 20:51:10 -0000	1.1
+++ openacs-4/packages/cms/www/modules/types/relations.tcl	24 May 2001 23:57:17 -0000	1.2
@@ -5,17 +5,15 @@
 request create
 request set_param type -datatype integer -value content_revision
 
-set db [template::get_db_handle]
-
-template::query module_id onevalue "
+template::query get_module_id module_id onevalue "
   select module_id from cm_modules where key = 'types'
 " 
 
 # permission check - must have cm_examine on types module
 content::check_access $module_id cm_examine -user_id [User::getID] 
 
 
-template::query rel_types multirow "
+template::query get_rel_types rel_types multirow "
   select
     pretty_name, target_type, relation_tag, min_n, max_n
   from
@@ -29,7 +27,7 @@
 " 
 
 
-template::query child_types multirow "
+template::query get_child_types child_types multirow "
   select
     pretty_name, child_type, relation_tag, min_n, max_n
   from
@@ -41,5 +39,3 @@
   order by
     pretty_name, relation_tag
 " 
-
-template::release_db_handle