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):
%3 ad_conn ad_conn (public) db_string db_string (public) parameter::get parameter::get (public) subsite::get_theme subsite::get_theme (public) subsite::update_subsite_theme subsite::update_subsite_theme (public) subsite::save_theme_parameters subsite::save_theme_parameters subsite::save_theme_parameters->ad_conn subsite::save_theme_parameters->db_string subsite::save_theme_parameters->parameter::get subsite::save_theme_parameters->subsite::get_theme subsite::save_theme_parameters->subsite::update_subsite_theme

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

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