install::xml::action::ats-page (public)

 install::xml::action::ats-page node

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

Creates an ATS Page.

Parameters:

node

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

Testcases:

No testcase defined.

Source code:

    set id [apm_attribute_value -default "" $node id]
    set package [apm_attribute_value -default "" $node package]
    set context [apm_attribute_value -default "" $node context]
    set path [apm_attribute_value $node path]

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

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

    set extension "*"
    regexp {(.*)\.(.*)} $path match path extension

    set result [db_string get_type_select {
                              select page_id
                                from ats_pages
                              where path = :path} -default ""]
    if {$result eq ""} {
        set result [location::ats::create_template -path $path  -extension $extension  -package_id $package  -context_id $context]
    }

    if {$id ne ""} {
        set ::install::xml::ids($id) $result
    }
    return

XQL Not present:

Generic, PostgreSQL, Oracle