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.2 -r1.3 --- openacs-4/packages/courses/www/cc-admin/associate-course.tcl 3 Feb 2005 22:41:28 -0000 1.2 +++ openacs-4/packages/courses/www/cc-admin/associate-course.tcl 4 Feb 2005 23:05:53 -0000 1.3 @@ -6,14 +6,16 @@ @creation date 31-01-2005 } { course_id:notnull - class_id:notnull + object_id:multiple { return_url ""} } -course_catalog::add_relation -course_id $course_id -class_id $class_id +foreach object $object_id { + course_catalog::add_relation -course_id $course_id -class_id $object +} if { [string equal $return_url ""] } { - ad_returnredirect "/courses/cc-admin/dotlrn-list" + ad_returnredirect "/courses/cc-admin/dotlrn-list?course_id=$course_id" } else { ad_returnredirect "$return_url" }