Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/Attic/subsite-procs.xql,v diff -u -r1.9 -r1.10 --- openacs-4/packages/acs-subsite/tcl/subsite-procs.xql 8 May 2008 01:35:58 -0000 1.9 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs.xql 25 Nov 2008 17:08:50 -0000 1.10 @@ -48,7 +48,6 @@ - @@ -115,4 +114,57 @@ + + + select pretty_name, package_key + from apm_package_types + where implements_subsite_p = 't' + order by pretty_name + + + + + + select pretty_name, package_key + from apm_package_types + where implements_subsite_p = 't' + and package_key in ($in_clause) + order by pretty_name + + + + + + update apm_packages + set package_key = :new_package_key + where package_id = :subsite_id + + + + + + select parameter_name, parameter_id + from apm_parameters + where package_key = :old_package_key + + + + + + select parameter_id as new_parameter_id + from apm_parameters + where package_key = :new_package_key + and parameter_name = :parameter_name + + + + + + update apm_parameter_values + set parameter_id = :new_parameter_id + where parameter_id = :parameter_id + and package_id = :subsite_id + + +