• Publicity: Public Only All

navigation-procs.tcl

Provides procedures to spit out the navigational parts of the site.

Location:
packages/acs-tcl/tcl/navigation-procs.tcl
Created:
11/5/98 (adapted originally from the Cognet server)
Author:
philg@mit.edu
CVS Identification:
$Id: navigation-procs.tcl,v 1.48.2.6 2021/05/23 17:57:07 gustafn Exp $

Procedures in this file

Detailed information

ad_choice_bar (public)

 ad_choice_bar items links values [ default ]

Displays a list of choices (Yahoo style), with the currently selected one highlighted.

Parameters:
items
links
values
default (optional)
See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_html_bars ad_html_bars (test acs-tcl) ad_choice_bar ad_choice_bar test_ad_html_bars->ad_choice_bar

Testcases:
ad_html_bars

ad_context_bar (public)

 ad_context_bar [ -from_node from_node ] [ -node_id node_id ] \
    [ -separator separator ] [ args... ]

Returns a Yahoo-style hierarchical navbar. Includes "Administration" if applicable, and the subsite if not global. 'args' can be either one or more lists, or a simple string.

Switches:
-from_node
(optional)
If provided do not generate links to the given node and above.
-node_id
(optional)
If provided work up from this node, otherwise the current node
-separator
(optional)
The text placed between each link (passed to ad_context_bar_html if provided)
Returns:
an HTML fragment generated by ad_context_bar_html
See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_context_bar ad_context_bar (test acs-tcl) ad_context_bar ad_context_bar test_ad_context_bar->ad_context_bar _ _ (public) ad_context_bar->_ ad_conn ad_conn (public) ad_context_bar->ad_conn ad_context_bar_html ad_context_bar_html (public) ad_context_bar->ad_context_bar_html ad_context_node_list ad_context_node_list (public) ad_context_bar->ad_context_node_list parameter::get parameter::get (public) ad_context_bar->parameter::get apm_header apm_header (public, deprecated) apm_header->ad_context_bar etp::get_pa etp::get_pa (private) etp::get_pa->ad_context_bar packages/acs-admin/www/apm/version-i18n-process-2.tcl packages/acs-admin/ www/apm/version-i18n-process-2.tcl packages/acs-admin/www/apm/version-i18n-process-2.tcl->ad_context_bar packages/acs-admin/www/apm/version-i18n-process.tcl packages/acs-admin/ www/apm/version-i18n-process.tcl packages/acs-admin/www/apm/version-i18n-process.tcl->ad_context_bar packages/acs-admin/www/apm/version-i18n.tcl packages/acs-admin/ www/apm/version-i18n.tcl packages/acs-admin/www/apm/version-i18n.tcl->ad_context_bar

Testcases:
ad_context_bar

ad_context_bar_html (public)

 ad_context_bar_html [ -separator separator ] context

Generate the an HTML fragment for a context bar. This is the function that takes a list in the format 

    [list [list url1 text1] [list url2 text2] ... "terminal text"]
    
    and generates the HTML fragment.  In general, the higher level
    proc ad_context_bar should be
    used, and then only in the sitewide master rather than on
    individual pages.





Switches:


-separator
 (optional)
The text placed between each link


Parameters:

context - list as with ad_context_bar




Returns:
HTML fragment


See Also:




Partial Call Graph (max 5 caller/called nodes):




%3



test_ad_context_bar_html

ad_context_bar_html
(test acs-tcl)





ad_context_bar_html

ad_context_bar_html



test_ad_context_bar_html->ad_context_bar_html





ad_conn


ad_conn
(public)





ad_context_bar_html->ad_conn





parameter::get


parameter::get
(public)





ad_context_bar_html->parameter::get





ad_context_bar


ad_context_bar
(public)





ad_context_bar->ad_context_bar_html








Testcases:

ad_context_bar_html

ad_context_bar_multirow (public)

 ad_context_bar_multirow [ -from_node from_node ] [ -node_id node_id ] \
    [ -multirow multirow ] context

Returns a Yahoo-style hierarchical navbar. Includes "Administration" if applicable, and the subsite if not global.

Switches:
-from_node
(optional)
If provided do not generate links to the given node and above.
-node_id
(optional)
If provided work up from this node, otherwise the current node
-multirow
(defaults to "context") (optional)
Parameters:
context
Returns:
an HTML fragment generated by ad_context_bar_html
See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_context_bar_multirow ad_context_bar_multirow (test acs-tcl) ad_context_bar_multirow ad_context_bar_multirow test_ad_context_bar_multirow->ad_context_bar_multirow _ _ (public) ad_context_bar_multirow->_ ad_conn ad_conn (public) ad_context_bar_multirow->ad_conn ad_context_node_list ad_context_node_list (public) ad_context_bar_multirow->ad_context_node_list parameter::get parameter::get (public) ad_context_bar_multirow->parameter::get site_node::get_url site_node::get_url (public) ad_context_bar_multirow->site_node::get_url packages/acs-subsite/www/group-master.tcl packages/acs-subsite/ www/group-master.tcl packages/acs-subsite/www/group-master.tcl->ad_context_bar_multirow packages/openacs-default-theme/lib/plain-master.tcl packages/openacs-default-theme/ lib/plain-master.tcl packages/openacs-default-theme/lib/plain-master.tcl->ad_context_bar_multirow packages/openacs-default-theme/lib/plain-streaming-head.tcl packages/openacs-default-theme/ lib/plain-streaming-head.tcl packages/openacs-default-theme/lib/plain-streaming-head.tcl->ad_context_bar_multirow

Testcases:
ad_context_bar_multirow

ad_context_node_list (public)

 ad_context_node_list [ -from_node from_node ] node_id

Starting with the given node_id, return a list of [list url instance_name] items for parent nodes.

Switches:
-from_node
(optional)
Parameters:
node_id
Options:
-from_node
The top-most node_id for which we'll show context bar. This can be used with the node_id of the nearest subsite to get the context-bar only up to the nearest subsite.
Author:
Peter Marklund

Partial Call Graph (max 5 caller/called nodes):
%3 test_web_forum_edit web_forum_edit (test forums) ad_context_node_list ad_context_node_list test_web_forum_edit->ad_context_node_list test_web_forum_view web_forum_view (test forums) test_web_forum_view->ad_context_node_list test_web_forums_message_and_reply web_forums_message_and_reply (test forums) test_web_forums_message_and_reply->ad_context_node_list site_node::get site_node::get (public) ad_context_node_list->site_node::get ad_context_bar ad_context_bar (public) ad_context_bar->ad_context_node_list ad_context_bar_multirow ad_context_bar_multirow (public) ad_context_bar_multirow->ad_context_node_list

Testcases:
web_forum_view, web_forum_edit, web_forums_message_and_reply

ad_navbar (public)

 ad_navbar [ args... ]

Produces a navigation bar. Notice that navigation bar is different than context bar, which displays packages in the site map. Navbar will only generate HTML for those links passed to it.

Returns:
HTML fragment
See Also:

Partial Call Graph (max 5 caller/called nodes):
%3 test_ad_html_bars ad_html_bars (test acs-tcl) ad_navbar ad_navbar test_ad_html_bars->ad_navbar

Testcases:
ad_html_bars

util_current_location_node_id (public)

 util_current_location_node_id

returns node_id of util_current_location. Useful for hostnode mapped sites using ad_context_bar

Partial Call Graph (max 5 caller/called nodes):
%3 ad_context_bar_multirow ad_context_bar_multirow (public) util_current_location_node_id util_current_location_node_id ad_context_bar_multirow->util_current_location_node_id db_0or1row db_0or1row (public) util_current_location_node_id->db_0or1row util::split_location util::split_location (public) util_current_location_node_id->util::split_location util_current_location util_current_location (public) util_current_location_node_id->util_current_location

Testcases:
No testcase defined.
[ show source ]