attachments::context_bar (public)

 attachments::context_bar -folder_id folder_id [ -final final ] \
    [ -extra_vars extra_vars ] [ -multirow multirow ]

Defined in packages/attachments/tcl/attachments-procs.tcl

Create a multirow with cols (url title) for the file-storage bar starting at folder_id

Switches:
-folder_id (required)
-final (optional)
-extra_vars (optional)
-multirow (optional, defaults to "fs_context")

Partial Call Graph (max 5 caller/called nodes):
%3 test_attachments_url_api attachments_url_api (test attachments) attachments::context_bar attachments::context_bar test_attachments_url_api->attachments::context_bar _ _ (public) attachments::context_bar->_ attachments::get_root_folder attachments::get_root_folder (public) attachments::context_bar->attachments::get_root_folder fs_context_bar_list fs_context_bar_list (public) attachments::context_bar->fs_context_bar_list template::multirow template::multirow (public) attachments::context_bar->template::multirow packages/attachments/www/attach.tcl packages/attachments/ www/attach.tcl packages/attachments/www/attach.tcl->attachments::context_bar

Testcases:
attachments_url_api
Source code:

        set root_folder_id [attachments::get_root_folder]

        set cbar_list [fs_context_bar_list -extra_vars $extra_vars -folder_url "attach" -file_url "attach" -root_folder_id $root_folder_id -final $final $folder_id]

        template::multirow create $multirow url label

        if { $root_folder_id ne "" && $cbar_list ne "" } {
            template::multirow append $multirow "attach?${extra_vars}&folder_id=$root_folder_id" [_ attachments.Top]
            foreach elm $cbar_list {
                if { [llength elm] > 1 } {
                    template::multirow append $multirow [lindex $elm 0] [lindex $elm 1]
                } else {
                    template::multirow append $multirow "" $elm
                }
            }
        } else {
            template::multirow append $multirow "" [_ attachments.Top]
        }
XQL Not present:
PostgreSQL, Oracle
Generic XQL file:
packages/attachments/tcl/attachments-procs.xql

[ hide source ] | [ make this the default ]
Show another procedure: