• Publicity: Public Only All

category-form-procs.tcl

Procs for the integration in ad_form of the site-wide categorization package.

Location:
packages/categories/tcl/category-form-procs.tcl
Created:
06 February 2004
Author:
Branimir Dolicki <bdolicki@branimir.com>
CVS Identification:
$Id: category-form-procs.tcl,v 1.8.2.2 2019/11/29 14:32:04 antoniop Exp $

Procedures in this file

Detailed information

category::ad_form::add_widgets (public)

 category::ad_form::add_widgets \
    -container_object_id container_object_id \
    [ -categorized_object_id categorized_object_id ] \
    -form_name form_name [ -element_name element_name ] \
    [ -excluded_trees excluded_trees ] [ -help_text help_text ]

For each category tree associated with this container_object_id (usually package_id) put a category widget into the ad_form. On form submission the procedure category::ad_form::get_categories should be called to collect the categories in which this object belongs.

Switches:
-container_object_id
(required)
-categorized_object_id
(optional)
-form_name
(required)
-element_name
(defaults to "category_id") (optional)
-excluded_trees
(optional)
-help_text
(optional)
Author:
Branimir Dolicki <bdolicki@branimir.com>

Partial Call Graph (max 5 caller/called nodes):
%3 Class ::Generic::Form Class ::Generic::Form (public) category::ad_form::add_widgets category::ad_form::add_widgets Class ::Generic::Form->category::ad_form::add_widgets Generic::Form instproc generate Generic::Form instproc generate (public) Generic::Form instproc generate->category::ad_form::add_widgets packages/categories/lib/categorize.tcl packages/categories/ lib/categorize.tcl packages/categories/lib/categorize.tcl->category::ad_form::add_widgets packages/categories/lib/map.tcl packages/categories/ lib/map.tcl packages/categories/lib/map.tcl->category::ad_form::add_widgets packages/faq/www/admin/q-and-a-add-edit.tcl packages/faq/ www/admin/q-and-a-add-edit.tcl packages/faq/www/admin/q-and-a-add-edit.tcl->category::ad_form::add_widgets ad_form ad_form (public) category::ad_form::add_widgets->ad_form category_tree::get_mapped_trees category_tree::get_mapped_trees (public) category::ad_form::add_widgets->category_tree::get_mapped_trees

Testcases:
No testcase defined.

category::ad_form::fill_widgets (public)

 category::ad_form::fill_widgets \
    -container_object_id container_object_id \
    [ -categorized_object_id categorized_object_id ] \
    [ -element_name element_name ]

Reads mapped categories values from categorized object and sets them into its auto-generated category form widgets. To be used in the -edit_request clause of ad_form.

Switches:
-container_object_id
(required)
-categorized_object_id
(optional)
-element_name
(defaults to "category_id") (optional)
Author:
Antonio Pisano <antonio@elettrotecnica.it>

Partial Call Graph (max 5 caller/called nodes):
%3 Class ::Generic::Form Class ::Generic::Form (public) category::ad_form::fill_widgets category::ad_form::fill_widgets Class ::Generic::Form->category::ad_form::fill_widgets Generic::Form instproc generate Generic::Form instproc generate (public) Generic::Form instproc generate->category::ad_form::fill_widgets category::get_mapped_categories category::get_mapped_categories (public) category::ad_form::fill_widgets->category::get_mapped_categories category_tree::get_mapped_trees category_tree::get_mapped_trees (public) category::ad_form::fill_widgets->category_tree::get_mapped_trees template::adp_level template::adp_level (public) category::ad_form::fill_widgets->template::adp_level

Testcases:
No testcase defined.

category::ad_form::get_categories (public)

 category::ad_form::get_categories \
    -container_object_id container_object_id \
    [ -element_name element_name ]

Collects categories from the category widget in the format compatible with category::add_ad_form_elements. To be used in the -on_submit clause of ad_form.

Switches:
-container_object_id
(required)
-element_name
(defaults to "category_id") (optional)
Author:
Branimir Dolicki <bdolicki@branimir.com>

Partial Call Graph (max 5 caller/called nodes):
%3 Class ::Generic::Form Class ::Generic::Form (public) category::ad_form::get_categories category::ad_form::get_categories Class ::Generic::Form->category::ad_form::get_categories Generic::Form instproc generate Generic::Form instproc generate (public) Generic::Form instproc generate->category::ad_form::get_categories packages/categories/lib/map.tcl packages/categories/ lib/map.tcl packages/categories/lib/map.tcl->category::ad_form::get_categories packages/faq/www/admin/q-and-a-add-edit.tcl packages/faq/ www/admin/q-and-a-add-edit.tcl packages/faq/www/admin/q-and-a-add-edit.tcl->category::ad_form::get_categories packages/file-storage/www/file-add.tcl packages/file-storage/ www/file-add.tcl packages/file-storage/www/file-add.tcl->category::ad_form::get_categories category_tree::get_mapped_trees category_tree::get_mapped_trees (public) category::ad_form::get_categories->category_tree::get_mapped_trees template::adp_level template::adp_level (public) category::ad_form::get_categories->template::adp_level

Testcases:
No testcase defined.
[ hide source ] | [ make this the default ]

Content File Source

ad_library {
    Procs for the integration in ad_form of the site-wide categorization package.

    @author Branimir Dolicki (bdolicki@branimir.com)

    @creation-date 06 February 2004
    @cvs-id $Id: category-form-procs.tcl,v 1.8.2.2 2019/11/29 14:32:04 antoniop Exp $
}

namespace eval category::ad_form {}

d_proc -public category::ad_form::add_widgets {
    {-container_object_id:required}
    {-categorized_object_id}
    {-form_name:required}
    {-element_name "category_id"}
    {-excluded_trees {}}
    {-help_text {}}
} {
    For each category tree associated with this container_object_id (usually
    package_id) put a category widget into the ad_form.  On form submission the
    procedure category::ad_form::get_categories should be called to collect
    the categories in which this object belongs.

    @author Branimir Dolicki (bdolicki@branimir.com)
} {
    set category_trees [category_tree::get_mapped_trees $container_object_id]

    foreach tree $category_trees {
    lassign $tree tree_id name subtree_id assign_single_p require_category_p widget
        if {$tree_id in $excluded_trees} {
            continue
        }
    set options ""
    if {$assign_single_p == "f"} {
        set options ",multiple"
    }
    if {$require_category_p == "f"} {
        append options ",optional"
    }
        ad_form -extend -name $form_name -form \
            [list [list __category__ad_form__$element_name\_${tree_id}:category$options \
                       {label $name} \
                       {category_tree_id $tree_id} \
                       {category_subtree_id $subtree_id} \
                       {category_object_id {[expr {[info exists categorized_object_id] ? $categorized_object_id : ""}]}} \
               {category_assign_single_p $assign_single_p} \
               {category_require_category_p $require_category_p} \
                       {category_widget $widget} \
                       {help_text $help_text} \
                      ]]

    }
}

d_proc -public category::ad_form::get_categories {
    {-container_object_id:required}
    {-element_name "category_id"}
} {

    Collects categories from the category widget in the format compatible with
    category::add_ad_form_elements.  To be used in the -on_submit clause of
    ad_form.

    @author Branimir Dolicki (bdolicki@branimir.com)
} {
    set category_trees [category_tree::get_mapped_trees $container_object_id]
    set category_ids [list]
    foreach tree $category_trees {
    lassign $tree tree_id name subtree_id assign_single_p require_category_p widget
        upvar #[template::adp_level] \
          __category__ad_form__$element_name\_${tree_id} my_category_ids
        if {[info exists my_category_ids]} {
            lappend category_ids {*}$my_category_ids
        } else {
            ns_log Warning "category::ad_form::get_categories: __category__ad_form__$element_name\_${tree_id} for tree $tree_id not found"
        }
    }
    return $category_ids
}

# Antonio Pisano 2014-10-15
# This proc was added because, when editing an existing object, one should get
# its mapped categories and use their values to eventually fill the widget we
# have created by 'category::ad_form::add_widgets'.
# Otherwise, we will always see an empty widget when editing, even when mappings exist.
d_proc -public category::ad_form::fill_widgets {
    {-container_object_id:required}
    {-categorized_object_id}
    {-element_name "category_id"}
} {

    Reads mapped categories values from categorized object and sets them
    into its auto-generated category form widgets. To be used in the
    -edit_request clause of ad_form.

    @author Antonio Pisano (antonio@elettrotecnica.it)
} {
    # For each mapped tree...
    foreach tree [category_tree::get_mapped_trees $container_object_id] {
    lassign $tree tree_id name subtree_id assign_single_p require_category_p widget
    # ...get reference to this tree's form widget...
        upvar #[template::adp_level] \
          __category__ad_form__$element_name\_${tree_id} my_category_ids
    # ...and set its value to the categories mapped for this object.
    set categories [category::get_mapped_categories -tree_id $tree_id $categorized_object_id]
        set my_category_ids $categories
    }
}

# Local variables:
#    mode: tcl
#    tcl-indent-level: 4
#    indent-tabs-mode: nil
# End: