Index: openacs-4/packages/project-manager/tcl/install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/install-procs.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/project-manager/tcl/install-procs.tcl	13 Jun 2005 20:13:20 -0000	1.15
+++ openacs-4/packages/project-manager/tcl/install-procs.tcl	15 Jun 2005 13:40:41 -0000	1.16
@@ -89,56 +89,7 @@
     # delete folder_id: $folder_id" db_exec_plsql delete_root_folder {}
 }
 
-ad_proc -public -callback pm::project_new {
-    {-package_id:required}
-    {-project_id:required}
-    {-data:required}
-} {
-}
 
-ad_proc -public -callback pm::project_edit {
-    {-package_id:required}
-    {-project_id:required}
-    {-data:required}
-} {
-}
-
-ad_proc -public -callback pm::project_delete {
-    {-package_id:required}
-    {-project_id:required}
-} {
-}
-
-ad_proc -public -callback pm::project_close {
-    {-package_id:required}
-    {-project_id:required}
-} {
-}
-
-ad_proc -public -callback pm::task_new {
-    {-package_id:required}
-    {-task_id:required}
-} {
-}
-
-ad_proc -public -callback pm::task_edit {
-    {-package_id:required}
-    {-task_id:required}
-} {
-}
-
-ad_proc -public -callback pm::task_delete {
-    {-package_id:required}
-    {-task_id:required}
-} {
-}
-
-ad_proc -public -callback pm::task_close {
-    {-package_id:required}
-    {-task_id:required}
-} {
-}
-
 ad_proc -private pm::link_new_tasks {
     -object_id:required
     -linked_id:required
@@ -189,116 +140,6 @@
     }
 }
 
-ad_proc -public -callback forum::message_new -impl project_manager {
-    {-package_id:required}
-    {-message_id:required}
-} {
-    create a new task for each new forum message
-} {
-
-    # make sure this is not a reply message
-
-    forum::message::get -message_id $message_id -array message
-    if {$message_id == $message(root_message_id)} {
-	pm::link_new_tasks -object_id $message_id -linked_id $message(forum_id) -role "Watcher" -title $message(subject)
-    }
-}
-
-ad_proc -public -callback fs::file_new -impl project_manager {
-    {-package_id:required}
-    {-file_id:required}
-} {
-    create a new task for each new file upload
-} {
-    db_1row file_info {
-	select i.parent_id as folder_id, r.title, r.description, r.mime_type
-	from cr_items i, cr_revisions r
-	where i.item_id = :file_id
-	and r.revision_id = i.latest_revision}
-
-    pm::link_new_tasks -object_id $file_id -linked_id $folder_id -role "Watcher" -title $title -description $description -mime_type $mime_type
-}
-
-ad_proc -public -callback fs::file_edit -impl project_manager {
-    {-package_id:required}
-    {-file_id:required}
-} {
-    create a new task for each new file revision uploaded
-} {
-    db_1row file_info {
-	select i.parent_id as folder_id, r.title, r.description, r.mime_type
-	from cr_items i, cr_revisions r
-	where i.item_id = :file_id
-	and r.revision_id = i.latest_revision}
-
-    pm::link_new_tasks -object_id $file_id -linked_id $folder_id -role "Watcher" -title $title -description $description -mime_type $mime_type
-}
-
-ad_proc -public -callback contact::contact_form -impl project_manager {
-    {-package_id:required}
-    {-form:required}
-    {-object_type:required}
-} {
-    If organisation, ask to create new project
-} {
-    if {[llength [application_link::get_linked \
-		      -from_package_id $package_id \
-		      -to_package_key "project-manager"]] > 0} {
-	if {$object_type != "person" } {
-	    ad_form -extend -name $form -form {
-		{create_project_p:text(radio) \
-		     {label "[_ project-manager.create_project]"} \
-		     {options {{[_ acs-kernel.common_Yes] "t"} {[_ acs-kernel.common_no] "f"}}} \
-		     {values "f"}
-		}
-	    }
-	}
-    }
-}
-
-ad_proc -public -callback contact::organization_new -impl project_manager {
-    {-package_id:required}
-    {-contact_id:required}
-    {-name:required}
-} {
-    create a new project for new organization
-} {
-    upvar create_project_p create_project_p
-    
-    if {[exists_and_not_null create_project_p]
-	&& $create_project_p == "t"} {
-
-	set creation_user [ad_conn user_id]
-	set creation_ip [ad_conn peeraddr]
-	
-	# Check if we have a .LRN Club linked in. If yes,only create
-	# the project in the .LRN Club, otherwise in the default project
-	# manager instances
-	set dotlrn_club_id [application_data_link::get_linked -from_object_id $contact_id -to_object_type "dotlrn_club"]
-	set pm_package_id [dotlrn_community::get_package_id_from_package_key -package_key "project-manager" -community_id $dotlrn_club_id]
-
-	if {[empty_string_p $package_id]} {
-	    set pm_package_id [lindex [application_link::get_linked \
-					  -from_package_id $package_id \
-					  -to_package_key "project-manager"] 0]
-	}
-	
-	set project_id [pm::project::new \
-			    -project_name $name \
-			    -status_id 1 \
-			    -organization_id $contact_id \
-			    -creation_user $creation_user \
-			    -creation_ip $creation_ip \
-			    -package_id $pm_package_id]
-	
-	set project_item_id [pm::project::get_project_item_id \
-				     -project_id $project_id]
-	
-	application_data_link::new -this_object_id $contact_id -target_object_id $project_item_id
-	    
-    }
-}
-
 ad_proc -private pm::install::after_upgrade {
     {-from_version_name:required}
     {-to_version_name:required}