Index: openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql,v diff -u -r1.1 -r1.2 --- openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql 6 May 2001 21:40:21 -0000 1.1 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs-oracle.xql 15 May 2001 16:59:00 -0000 1.2 @@ -21,6 +21,18 @@ + + + + select t.pretty_name as package_name, acs_object.name(s.object_id) as object_name + from site_nodes s, apm_package_types t + where s.node_id = :node_id + and t.package_key = :package_key + + + + + @@ -36,4 +48,16 @@ + + + + select object_type + from acs_object_types + start with object_type = :object_type + connect by object_type = prior supertype + + + + +