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 -N -r1.50 -r1.51
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	29 Sep 2005 18:53:38 -0000	1.50
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	5 Oct 2005 09:37:50 -0000	1.51
@@ -296,7 +296,8 @@
     fs::set_folder_description -folder_id $folder_id -description $description
 
     if {!$no_callback_p} {
-	callback fs::folder_new -package_id [ad_conn package_id] -folder_id $folder_id
+# FIXME This callback doesn't work because sometimes is called without a connection and [ad_conn package_id] breaks
+#	callback fs::folder_new -package_id [ad_conn package_id] -folder_id $folder_id
     }
     return $folder_id
 }
@@ -310,7 +311,8 @@
 } {
     db_exec_plsql rename_folder {}
     if {!$no_callback_p} {
-	callback fs::folder_edit -package_id [ad_conn package_id] -folder_id $folder_id
+# FIXME This callback doesn't work because sometimes is called without a connection and [ad_conn package_id] breaks
+#	callback fs::folder_edit -package_id [ad_conn package_id] -folder_id $folder_id
     }
 }
 
@@ -719,7 +721,8 @@
 	}
 
 	if {!$no_callback_p} {
-	    callback fs::file_new -package_id [ad_conn package_id] -file_id $item_id
+# FIXME This callback doesn't work because sometimes is called without a connection and [ad_conn package_id] breaks
+#	    callback fs::file_new -package_id [ad_conn package_id] -file_id $item_id
 	}
     }
     return $revision_id
@@ -778,7 +781,8 @@
     }
 
     if {!$no_callback_p} {
-	callback fs::file_edit -package_id [ad_conn package_id] -file_id $item_id
+# FIXME This callback doesn't work because sometimes is called without a connection and [ad_conn package_id] breaks
+#	callback fs::file_edit -package_id [ad_conn package_id] -file_id $item_id
     }
 
     return $revision_id
@@ -792,7 +796,8 @@
     Deletes a file and all its revisions
 } {
     if {!$no_callback_p} {
-	callback fs::file_delete -package_id [ad_conn package_id] -file_id $item_id
+# FIXME This callback doesn't work because sometimes is called without a connection and [ad_conn package_id] breaks
+#	callback fs::file_delete -package_id [ad_conn package_id] -file_id $item_id
     }
 
     set version_name [get_object_name -object_id $item_id]
@@ -814,7 +819,8 @@
     Deletes a folder and all contents
 } {
     if {!$no_callback_p} {
-	callback fs::folder_delete -package_id [ad_conn package_id] -folder_id $folder_id
+# FIXME This callback doesn't work because sometimes is called without a connection and [ad_conn package_id] breaks
+#	callback fs::folder_delete -package_id [ad_conn package_id] -folder_id $folder_id
     }
 
     set version_name [get_object_name -object_id $folder_id]