ad_custom_list (public, deprecated)

 ad_custom_list user_id item_group item_set item_type target_url \
    custom_url [ new_string ]

Defined in packages/acs-tcl/tcl/deprecated-procs.tcl

Deprecated. Invoking this procedure generates a warning.

Generates the HTML fragment for choosing, editing and creating user customized data This proc was ported from the old ACS, but the data model was not.

Parameters:

user_id (required)

item_group (required)

item_set (required)

item_type (required)

target_url (required)

custom_url (required)

new_string (optional, defaults to "new view")

See Also:

• https://cvs.openacs.org/browse/OpenACS/web/openacs/www/doc/sql/user-custom.sql

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc ad_custom_list

    set items [db_list custom_list {
        select item from user_custom
        where user_id = :user_id
        and item_type = :item_type
        and item_group = :item_group
    }]

    set break {}
    foreach item $items {
        if {$item_set eq $item } {
            append html "$break<strong>$item</strong>&nbsp;(<a href=\"[ns_quotehtml $custom_url$item]\">edit</a>)"
        } else {
            append html "$break<a href=\"[ns_quotehtml $target_url$item]\">$item</a>"
        }
        set break " | "
    }
    append html "$break (<a href=\"[ns_quotehtml ${custom_url}CreateNewCustom]\">$new_string</a>)\n"

    return $html

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/deprecated-procs.xql