Index: openacs-4/packages/courses/www/cc-admin/associate-course.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/courses/www/cc-admin/associate-course.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/courses/www/cc-admin/associate-course.tcl	4 Feb 2005 23:05:53 -0000	1.3
+++ openacs-4/packages/courses/www/cc-admin/associate-course.tcl	8 Feb 2005 23:07:53 -0000	1.4
@@ -1,21 +1,28 @@
 ad_page_contract {
-    Associates course_catalog's course_id with dotlrn's class_instance_id
+    Associates course_catalog's course_id with dotlrn's class_instance_id or community
 
     @author          Miguel Marin (miguelmarin@viaro.net) 
     @author          Viaro Networks www.viaro.net
     @creation date   31-01-2005
 } {
     course_id:notnull
+    type:notnull
     object_id:multiple
     { return_url ""}
 }
 
+if { [string equal $type "class"] } {
+    set type "course_catalog_class_rel"
+} else {
+    set type "course_catalog_dotcom_rel"
+}
+
 foreach object $object_id {
-    course_catalog::add_relation -course_id $course_id -class_id $object
+    course_catalog::add_relation -course_id $course_id -object_id $object -type $type
 }
 
 if { [string equal $return_url ""] } {
-    ad_returnredirect "/courses/cc-admin/dotlrn-list?course_id=$course_id"
+    ad_returnredirect "dotlrn-list?course_id=$course_id"
 } else {
     ad_returnredirect "$return_url"
 }