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.46 -r1.47
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	13 Jan 2005 13:58:12 -0000	1.46
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	1 Mar 2005 22:54:14 -0000	1.47
@@ -1071,3 +1071,22 @@
 
     return [list $package_id $root_folder_id]
 }
+
+namespace eval fs::notification {}
+
+ad_proc -public fs::notification::get_url {
+    object_id
+} {
+    returns a full url to the object_id.
+    handles folders
+
+    @param object_id
+    
+    @author Stan Kaufman (skaufman@epimetrics.com)
+    @creation-date 2005-02-28
+} { 
+    set folder_id $object_id
+    return "[ad_url][db_string select_fs_package_url {}]index?folder_id=$folder_id"
+}
+
+