Index: openacs-4/packages/dotfolio/tcl/dotfolio-ui-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotfolio/tcl/dotfolio-ui-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotfolio/tcl/dotfolio-ui-procs.tcl	2 Aug 2005 01:54:52 -0000	1.3
+++ openacs-4/packages/dotfolio/tcl/dotfolio-ui-procs.tcl	31 Aug 2005 03:37:18 -0000	1.4
@@ -59,4 +59,22 @@
 	}
 	return 0
     }
+
+    ad_proc is_content_folder_p {
+        -object_id
+    } {
+        Returns t if the object is a content folder.
+	Otherwise returns f.
+
+	@param object_id The ID of an object.
+    } {
+	if {[db_0or1row object_type {}] && \
+		[string equal $object_type {content_folder}]} {
+
+	    return 1
+	}
+
+	return 0
+    }
+
 }