attribute::add_form_elements (public)

 attribute::add_form_elements [ -form_id form_id ] \
    [ -start_with start_with ] [ -object_type object_type ] \
    [ -variable_prefix variable_prefix ]

Defined in packages/acs-subsite/tcl/attribute-procs.tcl

Adds form elements to the specified form_id. Each form element corresponds to an attribute belonging to the given object_type.

ID of a form to add form elements to.
(defaults to "acs_object") (optional)
Object type to start with. Defaults to acs_object.
(defaults to "acs_object") (optional)
Object type to extract attributes for. Defaults to acs_object.
Variable prefix.

Partial Call Graph (max 5 caller/called nodes):
%3 packages/acs-subsite/www/admin/groups/new.tcl packages/acs-subsite/ www/admin/groups/new.tcl attribute::add_form_elements attribute::add_form_elements packages/acs-subsite/www/admin/groups/new.tcl->attribute::add_form_elements packages/acs-subsite/www/admin/parties/new.tcl packages/acs-subsite/ www/admin/parties/new.tcl packages/acs-subsite/www/admin/parties/new.tcl->attribute::add_form_elements packages/acs-subsite/www/admin/relations/add.tcl packages/acs-subsite/ www/admin/relations/add.tcl packages/acs-subsite/www/admin/relations/add.tcl->attribute::add_form_elements packages/acs-subsite/www/admin/users/new.tcl packages/acs-subsite/ www/admin/users/new.tcl packages/acs-subsite/www/admin/users/new.tcl->attribute::add_form_elements packages/acs-subsite/www/register/user-join.tcl packages/acs-subsite/ www/register/user-join.tcl packages/acs-subsite/www/register/user-join.tcl->attribute::add_form_elements attribute::translate_datatype attribute::translate_datatype (public) attribute::add_form_elements->attribute::translate_datatype db_list_of_lists db_list_of_lists (public) attribute::add_form_elements->db_list_of_lists package_object_attribute_list package_object_attribute_list (public) attribute::add_form_elements->package_object_attribute_list template::element template::element (public) attribute::add_form_elements->template::element

No testcase defined.
Source code:

        if {$form_id eq ""} {
            error "attribute::add_form_elements - form_id not specified"

        if {$object_type eq ""} {
            error "attribute::add_form_elements - object type not specified"

        if {$variable_prefix ne ""} {
            append variable_prefix "."

        # pull out all the attributes up the hierarchy from this object_type
        # to the $start_with object type
        set attr_list_of_lists [package_object_attribute_list -start_with $start_with $object_type]

        foreach row $attr_list_of_lists {
            lassign $row  attribute_id . attribute_name pretty_name datatype required_p default
            # Might translate the datatype into one for which we have a
            # validator (e.g. a string datatype would change into text).
            set datatype [translate_datatype $datatype]

            if {$datatype eq "enumeration"} {
            # For enumerations, we generate a select box of all the possible values
                set option_list [db_list_of_lists select_enum_values {
                    select enum.pretty_name, enum.enum_value
                    from acs_enum_values enum
                    where enum.attribute_id = :attribute_id
                    order by enum.sort_order
                if {$required_p == "f"} {
                # This is not a required option list... offer a default
                    lappend option_list [list " (no value) " ""]
                template::element create $form_id "$variable_prefix$attribute_name"  -datatype "text" [expr {$required_p eq "f" ? "-optional" : ""}]  -widget select  -options $option_list  -label "$pretty_name"  -value $default
            } else {
                template::element create $form_id "$variable_prefix$attribute_name"  -datatype $datatype [expr {$required_p eq "f" ? "-optional" : ""}]  -widget text  -label $pretty_name  -value $default
Generic XQL file:

PostgreSQL XQL file:

Oracle XQL file:

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