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.59 -r1.60
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	30 Jan 2007 14:05:24 -0000	1.59
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	27 Mar 2007 06:32:16 -0000	1.60
@@ -710,6 +710,7 @@
     {-tmp_filename ""}
     {-mime_type ""}
     -no_callback:boolean
+    -no_notification:boolean
 } {
     Create a new file storage item or add a new revision if
     an item with the same name and parent folder already exists
@@ -764,7 +765,14 @@
 	    if {![empty_string_p $creation_user]} {
 		permission::grant -party_id $creation_user -object_id $item_id -privilege admin
 	    }
-	    set do_notify_here_p "t"
+
+	    # Deal with notifications. Usually send out the notification
+	    # But surpress it if the parameter is given
+	    if {$no_notification_p} {
+		set do_notify_here_p "f"
+	    } else {
+		set do_notify_here_p "t"
+	    }
 	} else {
 	    # th: fixed to set old item_id if item already exists and no new item needed to be created
 	    db_1row get_old_item ""