Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.48.2.10 -r1.48.2.11
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	14 Oct 2005 17:35:42 -0000	1.48.2.10
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	10 Dec 2005 11:55:49 -0000	1.48.2.11
@@ -335,6 +335,14 @@
     return [db_string select_object_name {} -default $object_id]
 }
 
+ad_proc -public fs::get_object_prettyname {
+    {-object_id:required}
+} {
+    Select a pretty name for this object. If title is empty, returns name.
+} {
+    return [db_string select_object_prettyname {} -default $object_id]
+}
+
 ad_proc -public fs::get_file_system_safe_object_name {
     {-object_id:required}
 } {