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.30.2.2 -r1.30.2.3
--- openacs-4/packages/assessment/tcl/as-install-procs.tcl	10 Jun 2005 18:53:30 -0000	1.30.2.2
+++ openacs-4/packages/assessment/tcl/as-install-procs.tcl	14 Jun 2005 16:08:10 -0000	1.30.2.3
@@ -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}
@@ -103,11 +107,6 @@
 content::type::attribute::new -content_type {as_item_type_sa} -attribute_name {increasing_p}  -datatype {boolean}  -pretty_name {Increasing} -column_spec {char(1)}
 content::type::attribute::new -content_type {as_item_type_sa} -attribute_name {allow_negative_p} -datatype {boolean}  -pretty_name {Allow Negative} -column_spec {char(1)}
 
-# Item type sitewide category
-# uses checkbox, radio, and select box display types
-content::type::new -content_type {as_item_type_swcat} -supertype {content_revision} -pretty_name {Assessment Item Type Sitewide Category} -pretty_plural {Assessment Item Type Sitewide Category} -table_name {as_item_type_swcat} -id_column {as_item_type_id}
-content::type::attribute::new -content_type {as_item_type_swcat} -attribute_name {tree_id} -datatype {number}  -pretty_name {Tree ID} -column_spec {integer constraint as_item_type_swcat_tree_id_fk references category_trees}
-
 # Item answers
 content::type::attribute::new -content_type {as_item_sa_answers} -attribute_name {answer_id}     -datatype {number}  -pretty_name {Parent ID}     -column_spec {integer}
 content::type::attribute::new -content_type {as_item_sa_answers} -attribute_name {data_type}     -datatype {string}  -pretty_name {Data Type}     -column_spec {varchar(20)}