Index: openacs-4/packages/bookmarks/sql/postgresql/bookmarks-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/sql/postgresql/bookmarks-create.sql,v
diff -u -N -r1.23.4.1 -r1.23.4.2
--- openacs-4/packages/bookmarks/sql/postgresql/bookmarks-create.sql	22 May 2004 05:32:14 -0000	1.23.4.1
+++ openacs-4/packages/bookmarks/sql/postgresql/bookmarks-create.sql	30 Jun 2004 05:28:32 -0000	1.23.4.2
@@ -114,6 +114,50 @@
   return tree_sortkey from bm_bookmarks where bookmark_id = p_bookmark_id;
 end;' language 'plpgsql';
 
+create or replace function bm_bookmarks_get_folder_names(
+	--
+	-- Returns the names of the parent folders of a bookmark, joined
+	-- together with an optional separator.
+	--
+	-- @author Gabriel Burca (gburca-openacs@ebixio.com)
+	--
+
+	integer,	-- bm_bookmarks.bookmark_id%TYPE
+	text		-- Optional separator (set to NULL to use the default)
+) returns text as '
+declare
+	p_bookmark_id	alias for $1;
+	p_sep		alias for $2;	-- optional separator to use
+	v_rec		record;
+	tree_key	varbit;
+	separator	text default '' :: '';
+	folder_names	text default '''';	-- If NULL, the || in the LOOP fails
+begin
+	tree_key := bm_bookmarks_get_tree_sortkey(p_bookmark_id);
+	
+	-- Level 1 is the root folder, level 2 is items in the root folder
+	if tree_level(tree_key) <= 2 then
+		return '''';
+	end if;
+	
+	if p_sep is not null then
+		separator := p_sep;
+	end if;
+
+	for v_rec in select local_title
+		from bm_bookmarks
+		where tree_sortkey in
+			(select tree_ancestor_keys( -- get all parent folders up to level 2
+					tree_ancestor_key(	-- start with the parent folder key
+						tree_key, tree_level(tree_key) - 1), 2 ) )
+		order by tree_sortkey
+	LOOP
+		folder_names := folder_names || separator || v_rec.local_title;
+	end LOOP;
+
+	return trim(leading separator from folder_names);
+end;' language 'plpgsql';
+
 create function bm_bookmarks_insert_tr () returns opaque as '
 declare
         v_parent_sk     varbit default null;