Index: openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl	1 Aug 2005 00:06:58 -0000	1.6
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl	2 Aug 2005 18:19:39 -0000	1.7
@@ -23,6 +23,8 @@
     set revision_id -1
 }
 
+set enable_applications_p [parameter::get -package_id [ad_conn package_id] -parameter EnableCourseApplicationsP -default 1]
+
 # Check for create permissions over dotlrn-catalog package
 permission::require_permission -party_id $user_id -object_id $cc_package_id -privilege "create"
 
@@ -40,11 +42,13 @@
 # Get assessments
 set asm_list [list [list "[_ dotlrn-catalog.not_associate]" "-1"]]
 db_foreach assessment { } {
-    if { [permission::permission_p -object_id $assessment_id -privilege "admin"] == 1 } {
+    if { [permission::permission_p -object_id $assessment_id -privilege "admin"] == 1 && $enable_applications_p == 1 } {
 	lappend asm_list [list $title $assessment_id] 
     }
 }
 
+unset assessment_id
+
 # Get a list of all the attributes asociated to dotlrn_catalog
 set attribute_list [package_object_attribute_list -start_with dotlrn_catalog dotlrn_catalog]
 set elements ""
@@ -55,6 +59,11 @@
     switch [lindex $attribute 2] {
 	display_p -
 	community_id { continue }
+	assessment_id {
+	    if { ! $enable_applications_p } {
+		continue
+	    }
+	}
     }
     set element_mode ""
     set aditional_type ""