bm_close_js_brackets (private)

 bm_close_js_brackets prev_folder_p prev_lev lev

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

This helper function is used by the tree-dynamic.tcl page in constructing the bookmark tree for the javascript page.

Parameters:

prev_folder_p (required)

prev_lev (required)

lev (required)

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

Testcases:

No testcase defined.

Source code:

    set result ""
    if {$prev_folder_p && ($prev_lev >= $lev)} {
        # Empty folder. We need to add a fake bookmark to the folder or else
        # it will not have a folder icon attached to it.
        set i_str [string repeat "\t" $prev_lev]
        append result "$i_str\t\['Empty folder']\n"
        append result "$i_str],\n"
    }
    while {$prev_lev > $lev} {
        set i_str [string repeat "\t" [expr {$prev_lev - 1}]]
        append result "$i_str],\n"
        incr prev_lev -1
    }

    return $result

Generic XQL file:

packages/bookmarks/tcl/bookmarks-procs.xql

PostgreSQL XQL file:

packages/bookmarks/tcl/bookmarks-procs-postgresql.xql

Oracle XQL file:

packages/bookmarks/tcl/bookmarks-procs-oracle.xql