Index: openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	30 Jan 2007 14:05:24 -0000	1.7
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	7 Oct 2007 22:37:00 -0000	1.8
@@ -109,6 +109,15 @@
     return "/file/$item_id/$name"
 }
 
+ad_proc -public -callback search::url -impl file_storage_object {
+    -object_id:required
+} {
+    Return the URL to the file_storage_object
+} {
+    set item_id [content::revision::item_id -revision_id $object_id]
+    set name [db_string item "select name from cr_items where item_id = :item_id" -default ""]
+    return "[ad_url]/file/$item_id/$name"
+}
 
 ad_proc -public -callback datamanager::copy_folder -impl datamanager {
      -object_id:required