apm_copy_inherited_params (public)

 apm_copy_inherited_params new_package_key dependencies

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

Copy parameters from a packages ancestors. Called for "embeds" and "extends" dependencies.

Parameters:
new_package_key (required)
dependencies (required)

Partial Call Graph (max 5 caller/called nodes):
%3 apm_package_install apm_package_install (public) apm_copy_inherited_params apm_copy_inherited_params apm_package_install->apm_copy_inherited_params packages/acs-admin/www/apm/version-dependency-add-2.tcl packages/acs-admin/ www/apm/version-dependency-add-2.tcl packages/acs-admin/www/apm/version-dependency-add-2.tcl->apm_copy_inherited_params db_exec_plsql db_exec_plsql (public) apm_copy_inherited_params->db_exec_plsql db_foreach db_foreach (public) apm_copy_inherited_params->db_foreach

Testcases:
No testcase defined.
Source code:
    foreach dependency $dependencies {
        set inherited_package_key [lindex $dependency 0]
        db_foreach inherited_params {} {
            if { [db_exec_plsql param_exists {}] } {
                error "$parameter_name already exists in package $new_package_key"
            } else {
                db_exec_plsql copy_inherited_param {}
            }
        }
    }
Generic XQL file:
<fullquery name="apm_copy_inherited_params.inherited_params">
    <querytext>
    select ap.*
    from apm_parameters ap
    where package_key = :inherited_package_key
      and scope = 'instance'
   </querytext>
</fullquery>
packages/acs-tcl/tcl/apm-install-procs.xql

PostgreSQL XQL file:
<fullquery name="apm_copy_inherited_params.param_exists">
    <querytext>
    select apm__parameter_p(:new_package_key, :parameter_name);
  </querytext>
</fullquery>

<fullquery name="apm_copy_inherited_params.copy_inherited_param">
    <querytext>
    select apm__register_parameter(null, :new_package_key, :parameter_name, :description,
                                   :scope, :datatype, :default_value, :section_name,
                                   :min_n_values, :max_n_values)
  </querytext>
</fullquery>
packages/acs-tcl/tcl/apm-install-procs-postgresql.xql

Oracle XQL file:
<fullquery name="apm_copy_inherited_params.param_exists">
    <querytext>
    begin
      :1 := apm.parameter_p(
               package_key => :new_package_key,
               parameter_name => :parameter_name);
    end;
  </querytext>
</fullquery>

<fullquery name="apm_copy_inherited_params.copy_inherited_param">
    <querytext>
    begin
      :1 := apm.register_parameter(
               package_key => :new_package_key,
               parameter_name => :parameter_name,
               description => :description,
               scope => :scope,
               datatype => :datatype,
               default_value => :default_value,
               section_name => :section_name,
               min_n_values => :min_n_values,
               max_n_values => :max_n_values);
    end;
  </querytext>
</fullquery>
packages/acs-tcl/tcl/apm-install-procs-oracle.xql

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