acs_object_type_hierarchy (public)
acs_object_type_hierarchy [ -object_type object_type ] \ [ -indent_string indent_string ] [ -indent_width indent_width ] \ [ -join_string join_string ] [ -additional_html additional_html ]
Defined in packages/acs-tcl/tcl/object-type-procs.tcl
Returns an HTML snippet representing a hierarchy of ACS Object Types
- Switches:
- -object_type
(optional)- the object type for which to show a hierarchy for.
- -indent_string
(defaults to" "
) (optional)- string with which to lpad
- -indent_width
(defaults to"4"
) (optional)- number of times to insert
indent_string
into indentation- -join_string
(defaults to"<br>"
) (optional)- string with which to join each row returned by the query
- -additional_html
(optional)- any additional html you might want to print per line
- Author:
- Yonatan Feldman <yon@arsdigita.com>
- Created:
- August 13, 2000
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
- object_type_hierarchy
Source code: set result "" if { $object_type ne "" } { set sql [db_map object_type_not_null] set join_string " > " } else { set sql [db_map object_type_is_null] } set i 0 db_foreach object_types "$sql" { if { $i > 0 } { append result $join_string } incr i set href [export_vars -base ./one {object_type}] append result [subst {\n $indent<a href="[ns_quotehtml $href]">[lang::util::localize $pretty_name]</a>}] append result $additional_html } return $resultXQL Not present: Generic PostgreSQL XQL file: <fullquery name="acs_object_type_hierarchy.object_type_not_null"> <querytext> select o2.object_type, o2.pretty_name, '' as indent, tree_level(o2.tree_sortkey) as level from (select * from acs_object_types where object_type = :object_type) o1, acs_object_types o2 where o2.tree_sortkey <= o1.tree_sortkey and o1.tree_sortkey between o2.tree_sortkey and tree_right(o2.tree_sortkey) order by level desc </querytext> </fullquery> <fullquery name="acs_object_type_hierarchy.object_type_is_null"> <querytext> select object_type, pretty_name, repeat('$indent_string',(tree_level(tree_sortkey) - 1) * $indent_width) as indent from acs_object_types order by tree_sortkey </querytext> </fullquery>packages/acs-tcl/tcl/object-type-procs-postgresql.xql
Oracle XQL file: <fullquery name="acs_object_type_hierarchy.object_type_not_null"> <querytext> select object_type, pretty_name, '' as indent from acs_object_types start with object_type = :object_type connect by prior supertype = object_type order by level desc </querytext> </fullquery> <fullquery name="acs_object_type_hierarchy.object_type_is_null"> <querytext> select object_type, pretty_name, replace(lpad(' ', (level - 1) * $indent_width), ' ', '$indent_string') as indent from acs_object_types start with supertype is null connect by supertype = prior object_type </querytext> </fullquery>packages/acs-tcl/tcl/object-type-procs-oracle.xql