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.8 -r1.9
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	7 Oct 2007 22:37:00 -0000	1.8
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	9 Nov 2008 23:29:26 -0000	1.9
@@ -100,16 +100,6 @@
 }
 
 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 "/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