Index: openacs-4/packages/project-manager/lib/projects.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/lib/projects.tcl,v
diff -u -r1.37 -r1.38
--- openacs-4/packages/project-manager/lib/projects.tcl	19 Jun 2006 06:35:45 -0000	1.37
+++ openacs-4/packages/project-manager/lib/projects.tcl	14 Nov 2006 16:09:46 -0000	1.38
@@ -61,6 +61,25 @@
     set format "normal"
 }
 
+if {[exists_and_not_null category_id]} {
+    set category_join_clause "             LEFT JOIN (
+                        select 
+                        om.category_id, 
+                        om.object_id, 
+                        t.name as category_name 
+                        from 
+                        category_object_map om, 
+                        category_translations t, 
+                        categories ctg 
+                        where 
+                        om.category_id = t.category_id and 
+                        ctg.category_id = t.category_id and 
+                        ctg.deprecated_p = 'f')
+                 c ON p.item_id = c.object_id "
+} else {
+    set category_join_clause ""
+}
+
 # initialize the pa_from_clause. It should be empty unless needed
 set pa_from_clause ""