Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.8.2.2 -r1.8.2.3
--- openacs-4/packages/file-storage/www/file-add.tcl	28 Apr 2004 16:07:42 -0000	1.8.2.2
+++ openacs-4/packages/file-storage/www/file-add.tcl	21 Jul 2004 22:37:18 -0000	1.8.2.3
@@ -153,8 +153,7 @@
 
     }
     
-    ad_returnredirect "./?[export_url_vars folder_id]"
-    ad_script_abort
+    fs::do_notifications -folder_id $folder_id -filename $title -file_id $file_id -action "new_file"
 
 } -edit_data {
 
@@ -169,8 +168,13 @@
 	-description $description \
 	-package_id $package_id
 
+    fs::do_notifications -folder_id $folder_id -filename $title -file_id $file_id -action "new_version"
+
+} -after_submit {
+
     ad_returnredirect "./?[export_url_vars folder_id]"
     ad_script_abort
+
 }
 
 # if title isn't passed in ignore lock_title_p
@@ -180,4 +184,4 @@
 
 set unpack_available_p [expr ![empty_string_p [string trim [parameter::get -parameter UnzipBinary]]]]
 
-ad_return_template
\ No newline at end of file
+ad_return_template