Index: openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl	21 Feb 2005 19:22:12 -0000	1.4
+++ openacs-4/packages/dotlrn-catalog/lib/tree-chunk.tcl	22 Feb 2005 22:15:30 -0000	1.5
@@ -108,8 +108,34 @@
 		</div>
 	    }
 	}
+		category {
+	    label "[_ dotlrn-catalog.category]"
+	    display_template {
+		<div align=center>
+		<if @course_list.category_name@ not eq "">
+		    @course_list.category_name@
+		</if>
+		<else>
+		   #dotlrn-catalog.uncat#
+		</else>
+		</div>
+	    }
+	}
     }
+    
+    
+db_multirow -extend { category_name } course_list get_courses { } {
+    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]]
+}
+	
 
 
-db_multirow course_list get_courses {}
 
+
+
+
+