Index: openacs-4/packages/lors/lib/course-structure.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/lib/course-structure.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/lors/lib/course-structure.tcl	29 Jan 2007 17:30:38 -0000	1.7.2.1
+++ openacs-4/packages/lors/lib/course-structure.tcl	8 Feb 2007 09:27:31 -0000	1.7.2.2
@@ -93,7 +93,13 @@
     </tr>
 "
 
-set pretty_types_map {as_sections Questions ::xowiki::Page Content}
+set pretty_types_map {}
+if { [apm_package_installed_p assessment] } {
+	append pretty_types_map "as_sections Questions"
+}
+if { [apm_package_installed_p xowiki] } {
+	append pretty_types_map "::xowiki::Page Content"
+}
 template::multirow create blah course_name delete down folder_id fs_package_id hasmetadata href identifierref indent isshared item_id item_title object_id org_id res_identifier type up
 db_multirow organizations organizations { } { }
 template::multirow foreach organizations {
@@ -132,7 +138,13 @@
 set sharer_url  [export_vars -base sharer {man_id folder_id return_url}]
 set formater_url  [export_vars -base formater {man_id return_url}]
 
-set add_type_options [list [list Questions assessment] [list  Content wiki]]
+set add_type_options [list]
+if { [apm_package_installed_p assessment] } {
+	lappend add_type_options [list Questions assessment]
+}
+if { [apm_package_installed_p xowiki] } {
+	lappend add_type_options [list  Content wiki]
+}
 ad_form -name add-new -action object-new -export {man_id} -form {
     {add_type:text(select) {label ""} {options $add_type_options}}
     {add_new:text(submit) {label {[_ acs-kernel.common_Add]}}}