Index: openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql,v diff -u -r1.9 -r1.10 --- openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql 7 Mar 2005 21:02:16 -0000 1.9 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs-postgresql.xql 25 Nov 2008 17:08:50 -0000 1.10 @@ -68,7 +68,7 @@ from apm_package_types where not (apm_package__singleton_p(package_key) = 1 and apm_package__num_instances(package_key) >= 1) - and package_key != 'acs-subsite' + and not implements_subsite_p order by upper(pretty_name) @@ -87,5 +87,17 @@ limit 1 - + + + + select apm_parameter_value__new(null, :subsite_id, ap.parameter_id, ap.default_value) + from apm_parameters ap + where ap.package_key = :new_package_key + and not exists (select 1 + from apm_parameters ap2 + where ap2.package_key = :old_package_key + and ap2.parameter_name = ap.parameter_name) + + +