category::tagcloud::get_tags_no_mem (private)

 category::tagcloud::get_tags_no_mem -tree_id tree_id

Defined in packages/categories/tcl/tagcloud-procs.tcl

Returns a list of categories and their weights (number of objects mapped to each category) for a give category tree.

Switches:

-tree_id

(required)

Author:

Matthew Burke <matt-oacs@bluedino.net>

Created:

Oct 1, 2005

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

Testcases:

No testcase defined.

Source code:

    set user_locale [ad_conn locale]
    set user_id [ad_conn user_id]
    set default_locale [parameter::get -parameter DefaultLocale -default en_US]
    ns_log Warning "def loc $default_locale"

    # this whole locale thing isn't handled well.
    # categories get inserted in the site's default_locale and
    # the category creator's locale (?)

    # so we should check for the reader's locale and use that
    # or the default_locale, but ...

    set tag_list [db_list_of_lists tagcloud_get_keys {
        select category_id, count(com.object_id), min(trans.name)
           from categories
       natural left join category_object_map com
       natural join category_trees
           natural join category_translations trans
        where tree_id = :tree_id
      and trans.locale = :default_locale
          and acs_permission.permission_p(com.object_id, :user_id, 'read')
        group by category_id
    }]

XQL Not present:

Generic, PostgreSQL, Oracle