install::xml::action::wizard (public)

 install::xml::action::wizard node

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

Creates a wizard using the subtags for each step.

Parameters:
node (required)

Partial Call Graph (max 5 caller/called nodes):
%3 apm_attribute_value apm_attribute_value (public) install::xml::action::location install::xml::action::location (public) install::xml::util::get_id install::xml::util::get_id (public) xml_node_get_children xml_node_get_children (public) xml_node_get_name xml_node_get_name (public) install::xml::action::wizard install::xml::action::wizard install::xml::action::wizard->apm_attribute_value install::xml::action::wizard->install::xml::action::location install::xml::action::wizard->install::xml::util::get_id install::xml::action::wizard->xml_node_get_children install::xml::action::wizard->xml_node_get_name

Testcases:
No testcase defined.
Source code:
    set id [apm_attribute_value -default "" $node id]
    set name [apm_attribute_value -default "" $node name]
    set package [apm_attribute_value -default "" $node package]
    set context [apm_attribute_value -default "" $node context]
    set title [apm_attribute_value -default "" $node title]
    set child_arg [apm_attribute_value -default "" $node child-arg]
    set process [apm_attribute_value -default "" $node process]

    if {$context ne ""} {
        set context [install::xml::util::get_id $context]
    }

    if {$package ne ""} {
        set package [install::xml::util::get_id $package]
    }

    set parent_id [location::create -parent_id ""  -name $name  -title $title  -model_id ""  -view_id ""  -controller ""  -path_arg ""  -package_id $package  -context_id $context]

    if {$process ne ""} {
        location::parameter::create -location_id $parent_id  -name "wizard::process"  -subtree_p t  -value $process
    }

    set steps [xml_node_get_children [lindex $node 0]]

    foreach step $steps {
        if {[xml_node_get_name $step] ne "step"} {
            error "Unknown xml element \"[xml_node_get_name $step]\""
        }

        set step_export [apm_attribute_value -default "" $step exports]
        set step_export_proc [apm_attribute_value -default "" $step exports-proc]

        xml_node_set_attribute $step parent $parent_id

        if {$child_arg ne ""} {
            xml_node_set_attribute $step path-arg $child_arg
        }

        if {$package ne ""
            && ![xml_node_has_attribute $step package-id]} {
            xml_node_set_attribute $step package-id $package
        }

        if {$context ne ""
            && ![xml_node_has_attribute $step context-id]} {
            xml_node_set_attribute $step context-id $parent_id
        }

        set directory_p [apm_attribute_value -default f $step directory-p]
        xml_node_set_attribute $step directory-p  [string is true -strict $directory_p]

        set step_id [::install::xml::action::location $step]

        if {$step_export ne ""} {
            location::parameter::create -location_id $step_id  -name "wizard::exports"  -subtree_p t  -value $step_export
        }

        if {$step_export_proc ne ""} {
            location::parameter::create -location_id $step_id  -name "wizard::exports::proc"  -subtree_p t  -value $step_export_proc
        }
    }

    if {$id ne ""} {
        set ::install::xml::ids($id$parent_id
    }

    return $parent_id
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: