Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl	16 Feb 2005 22:21:30 -0000	1.4
+++ openacs-4/packages/dotlrn-catalog/www/dt-admin/course-list.tcl	21 Feb 2005 19:22:13 -0000	1.5
@@ -131,5 +131,11 @@
     set item_id [dotlrn_catalog::get_item_id -revision_id $course_id]
     set creation_user [dotlrn_catalog::get_creation_user -object_id $item_id]
     set rel [dotlrn_catalog::has_relation -course_id $course_id]
-    set category_name "[category::get_name [category::get_mapped_categories $course_id]]"
-}
\ No newline at end of file
+    set category_name ""
+    set mapped [category::get_mapped_categories $course_id]
+    foreach element $mapped {
+	append category_name "[category::get_name $element], "
+    }
+    set category_name [string range $category_name 0 [expr [string length $category_name] - 3]]
+}
+