subsite::save_theme_parameters (private)

 subsite::save_theme_parameters [ -subsite_id subsite_id ] \
    [ -theme theme ] [ -local_p local_p ]

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

Save the actual theming parameter set of the given/current subsite as default for the given/current theme. These default values are used, whenever a subsite switches to the specified theme.

Switches:

-subsite_id (optional)

Id of the subsite

-theme (optional)

Name of the theme (theme key)

-local_p (optional)

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]
    }

    if {![info exists theme]} {
        set theme [subsite::get_theme -subsite_id $subsite_id]
    }

    set name [db_string get_theme_name {select name from subsite_themes where key = :theme} -default ""]
    if {$name eq ""} {
        error "no subsite theme with key $theme registered"
    }

    subsite::update_subsite_theme  -key $theme  -name                 $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              $local_p

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