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.8.2.1 --- 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 26 Apr 2008 00:07:40 -0000 1.8.2.1 @@ -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