Index: openacs-4/contrib/packages/bcms/tcl/bcms-item-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-item-procs-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/bcms/tcl/bcms-item-procs-postgresql.xql	4 Aug 2003 11:19:46 -0000	1.2
+++ openacs-4/contrib/packages/bcms/tcl/bcms-item-procs-postgresql.xql	27 Aug 2003 17:23:27 -0000	1.3
@@ -212,18 +212,53 @@
 
     <fullquery name="bcms::item::get_item_path.get_item_path">
          <querytext>
-            select i.item_id, :prepend_path || content_item__get_path(i.item_id, r.item_id) as path, 
+            (select i.item_id, :prepend_path as path, 
                 case when i.content_type = 'content_folder' then content_folder__get_label(i.item_id) else bcms__get_title(i.item_id, 'latest') end as title
+            from cr_items i where item_id = :root_id)
+
+            union
+
+            (select i.item_id, :prepend_path || content_item__get_path(i.item_id, r.item_id) as path, 
+                case when i.content_type = 'content_folder' then content_folder__get_label(i.item_id) else bcms__get_title(i.item_id, 'latest') end as title
             from cr_items i,
                 (select tree_sortkey, item_id from cr_items where item_id = :root_id) r,
                 (select tree_ancestor_keys(tree_sortkey) as tree_sortkey from cr_items where item_id = :item_id) p
             where   
                 i.tree_sortkey = p.tree_sortkey
                 and i.tree_sortkey > r.tree_sortkey
-            order by i.tree_sortkey
+                $addtnl_where
+            order by i.tree_sortkey)
         </querytext>
     </fullquery>
 
+
+    <fullquery name="bcms::item::assign_category.assign_category">
+        <querytext>
+              select content_keyword__item_assign (:item_id,
+                                                   :category_id,
+                                                   null,
+                                                   null,
+                                                   null)
+        </querytext>
+    </fullquery>
+
+
+    <fullquery name="bcms::item::unassign_category.unassign_category">
+        <querytext>
+              select content_keyword__item_unassign (:item_id,
+                                                     :category_id)
+        </querytext>
+    </fullquery>
+
+
+    <fullquery name="bcms::item::clear_categories.unassign_all_category">
+        <querytext>
+            select content_keyword__item_unassign (item_id, keyword_id)
+            from cr_item_keyword_map where item_id = :item_id;
+        </querytext>
+    </fullquery>
+
+
 </queryset>