Index: openacs-4/packages/assessment/tcl/as-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-install-procs.tcl,v diff -u -r1.32 -r1.33 --- openacs-4/packages/assessment/tcl/as-install-procs.tcl 10 Jun 2005 17:40:28 -0000 1.32 +++ openacs-4/packages/assessment/tcl/as-install-procs.tcl 14 Jun 2005 16:07:15 -0000 1.33 @@ -19,8 +19,12 @@ inter_item_checks::apm_callback::package_install -apm_parameter_register "AsmForRegisterId" "Assessment used on the registration process." "acs-subsite" "0" "number" "user-login" +set value [parameter::get -parameter "AsmForRegisterId" -package_id [subsite::main_site_id]] +if {[empty_string_p $value]} { + apm_parameter_register "AsmForRegisterId" "Assessment used on the registration process." "acs-subsite" "0" "number" "user-login" +} + content::type::new -content_type {as_item_choices} -supertype {content_revision} -pretty_name {Assessment Item Choice} -pretty_plural {Assessment Item Choices} -table_name {as_item_choices} -id_column {choice_id} content::type::new -content_type {as_item_sa_answers} -supertype {content_revision} -pretty_name {Assessment Item Answer} -pretty_plural {Assessment Item Answer} -table_name {as_item_sa_answers} -id_column {choice_id}