Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v diff -u -r1.30 -r1.31 --- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 23 Feb 2005 13:14:01 -0000 1.30 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 27 Feb 2005 22:45:39 -0000 1.31 @@ -309,16 +309,15 @@ } } -ad_proc subsite::util::sub_type_exists_p { +ad_proc -public subsite::util::sub_type_exists_p { object_type } { - returns 1 if object_type has sub types, or 0 otherwise + @param object_type + @return 1 if object_type has sub types, or 0 otherwise + @author Oumi Mehrotra (oumi@arsdigita.com) @creation-date 2000-02-07 - - @param object_type - } { return [db_string sub_type_exists_p { @@ -334,11 +333,11 @@ } -ad_proc subsite::util::object_type_path_list { +ad_proc -public subsite::util::object_type_path_list { object_type {ancestor_type acs_object} } { - + @return the object type heirarchy for the given object type from ancestor_type to object_type } { set path_list [list] @@ -360,7 +359,7 @@ } -ad_proc subsite::util::object_type_pretty_name { +ad_proc -public subsite::util::object_type_pretty_name { object_type } { returns pretty name of object. We need this so often that I thought @@ -377,7 +376,7 @@ }] } -ad_proc subsite::util::return_url_stack { +ad_proc -public subsite::util::return_url_stack { return_url_list } { Given a list of return_urls, we recursively encode them into one @@ -408,17 +407,17 @@ } -ad_proc subsite::define_pageflow { +ad_proc -public subsite::define_pageflow { {-sections_multirow "sections"} {-subsections_multirow "subsections"} {-section ""} } { Defines the page flow of the subsite + + TODO: add an image + TODO: add link_p/selected_p for subsections } { set pageflow [get_pageflow_struct] - - # TODO: add an image - # TODO: add link_p/selected_p for subsections set base_url [subsite::get_element -element url] @@ -467,7 +466,7 @@ } -ad_proc subsite::add_section_row { +ad_proc -public subsite::add_section_row { {-array:required} {-base_url:required} {-multirow:required} @@ -527,6 +526,9 @@ {-array "section_info"} {-sections_multirow "sections"} } { + Takes the sections_multirow and sets the passed array name + with the elements label and url of the selected section. +} { upvar $array row # Find the label of the selected section @@ -544,7 +546,7 @@ } } -ad_proc subsite::get_pageflow_struct {} { +ad_proc -public subsite::get_pageflow_struct {} { # This is where the page flow structure is defined set subsections [list] lappend subsections home { @@ -593,8 +595,10 @@ set user_id [ad_conn user_id] - set admin_p [permission::permission_p -object_id \ - [site_node_closest_ancestor_package "acs-subsite"] -privilege admin -party_id [ad_conn untrusted_user_id]] + set admin_p [permission::permission_p \ + -object_id [site_node_closest_ancestor_package "acs-subsite"] \ + -privilege admin \ + -party_id [ad_conn untrusted_user_id]] set show_member_list_to [parameter::get -parameter "ShowMembersListTo" -package_id $subsite_id -default 2] if { $admin_p || ($user_id != 0 && $show_member_list_to == 1) || \