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):
%3 packages/acs-subsite/www/admin/themes/save-new.tcl packages/acs-subsite/ www/admin/themes/save-new.tcl subsite::save_theme_parameters_as subsite::save_theme_parameters_as packages/acs-subsite/www/admin/themes/save-new.tcl->subsite::save_theme_parameters_as ad_conn ad_conn (public) subsite::save_theme_parameters_as->ad_conn db_string db_string (public) subsite::save_theme_parameters_as->db_string parameter::get parameter::get (public) subsite::save_theme_parameters_as->parameter::get subsite::new_subsite_theme subsite::new_subsite_theme (public) subsite::save_theme_parameters_as->subsite::new_subsite_theme

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

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