subsite::save_theme_parameters_as (private)

 subsite::save_theme_parameters_as [ -subsite_id subsite_id ] \
    -theme theme -pretty_name pretty_name

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

Save the actual theming parameter for the given/current subsite under a new name.

Switches:

-subsite_id (optional)

Id of the subsite

-theme (required)

Name of the theme (theme key)

-pretty_name (required)

Pretty Name (of the theme)

Author:

Gustaf Neumann

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

Testcases:

No testcase defined.

Source code:

    if { ![info exists subsite_id] } {
        set subsite_id [ad_conn subsite_id]
    }

    set exists_p [db_string get_theme_name {select 1 from subsite_themes where key = :theme} -default 0]
    if {$exists_p} {
        error "subsite theme with key $theme exists already"
    }

    subsite::new_subsite_theme  -key                  $theme  -name                 $pretty_name  -template             [parameter::get -parameter DefaultMaster           -package_id $subsite_id]  -css                  [parameter::get -parameter ThemeCSS                -package_id $subsite_id]  -js                   [parameter::get -parameter ThemeJS                 -package_id $subsite_id]  -form_template        [parameter::get -parameter DefaultFormStyle        -package_id $subsite_id]  -list_template        [parameter::get -parameter DefaultListStyle        -package_id $subsite_id]  -list_filter_template [parameter::get -parameter DefaultListFilterStyle  -package_id $subsite_id]  -dimensional_template [parameter::get -parameter DefaultDimensionalStyle -package_id $subsite_id]  -resource_dir         [parameter::get -parameter ResourceDir             -package_id $subsite_id]  -streaming_head       [parameter::get -parameter StreamingHead           -package_id $subsite_id]  -local_p              true

XQL Not present:

Generic

PostgreSQL XQL file:

packages/acs-subsite/tcl/subsite-procs-postgresql.xql

Oracle XQL file:

packages/acs-subsite/tcl/subsite-procs-oracle.xql