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 -N -r1.10 -r1.10.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	10 Jan 2011 23:28:43 -0000	1.10
+++ openacs-4/packages/file-storage/tcl/file-storage-callback-procs.tcl	30 Aug 2014 17:01:26 -0000	1.10.2.1
@@ -21,15 +21,6 @@
 } {
 }
 
-ad_proc -public -callback fs::file_delete {
-    {-package_id:required}
-    {-file_id:required}
-} {
-    Callback executed right before the file is deleted
-    This should make sure that any foreign key constraints to the file are removed
-} -
-
-
 ad_proc -public -callback fs::before_file_new {
     {-package_id:required}
     {-folder_id:required}
@@ -39,12 +30,6 @@
     this can be used to check for confirmation before upload to folder
 } -
 
-ad_proc -public -callback fs::file_new {
-    {-package_id:required}
-    {-file_id:required}
-} {
-}
-
 ad_proc -public -callback fs::file_revision_new {
     {-package_id:required}
     {-file_id:required}
@@ -124,12 +109,6 @@
     
 }
 
-ad_proc -public -callback fs::folder_new {
-    {-package_id:required}
-    {-folder_id:required}
-} {
-}
-
 ad_proc -public -callback pm::project_new -impl file_storage {
     {-package_id:required}
     {-project_id:required}
Index: openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl,v
diff -u -N -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	3 Oct 2013 08:33:57 -0000	1.13.2.1
+++ openacs-4/packages/file-storage/tcl/file-storage-install-procs.tcl	30 Aug 2014 17:01:26 -0000	1.13.2.2
@@ -207,26 +207,4 @@
 } {
 }
 
-ad_proc -public -callback pm::project_new -impl file_storage {
-    {-package_id:required}
-    {-project_id:required}
-    {-data:required}
-} {
-    create a new folder for each new project
-} {
-    set pm_name [pm::project::name -project_item_id $project_id]
 
-    foreach fs_package_id [application_link::get_linked -from_package_id $package_id -to_package_key "file-storage"] {
-	set root_folder_id [fs::get_root_folder -package_id $fs_package_id]
-
-	set folder_id [fs::new_folder \
-			   -name $project_id \
-			   -pretty_name $pm_name \
-			   -parent_id $root_folder_id \
-			   -no_callback]
-
-	application_data_link::new -this_object_id $project_id -target_object_id $folder_id
-    }
-}
-
-