Index: openacs-4/contrib/packages/project-manager/www/process-task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/process-task-assign-add-edit.tcl,v
diff -u -r1.6.2.6 -r1.6.2.7
--- openacs-4/contrib/packages/project-manager/www/process-task-assign-add-edit.tcl	27 Feb 2004 22:46:13 -0000	1.6.2.6
+++ openacs-4/contrib/packages/project-manager/www/process-task-assign-add-edit.tcl	6 Mar 2004 00:29:24 -0000	1.6.2.7
@@ -1,12 +1,3 @@
-ns_log notice process-task-add-edit
-set mypage [ns_getform]
-if {[string equal "" $mypage]} {
-    ns_log notice no form was submitted on my page
-} else {
-    ns_log notice the following form was submitted on my page
-    ns_set print $mypage
-}
-
 ad_page_contract {
 
     Form to add in assignments to process tasks
@@ -192,7 +183,6 @@
     set process_task_id_pass [string map {"-" " "} $process_task_id_pass]
     set process_task_id      $process_task_id_pass
 
-    ns_log Notice "deleting assignments process_task_id: $process_task_id"
     db_dml delete_assignments { }
 
     foreach pl $party_list {
@@ -203,8 +193,6 @@
         set r_id  $assignment_role($pl)
         set p_id  $assignment_party($pl)
 
-        ns_log Notice "add tid: $t_id rid: $r_id pid: $p_id"
-
         db_dml add_assignment { }
 
     }
@@ -281,8 +269,6 @@
         set r_id  $assignment_role($pl)
         set p_id  $assignment_party($pl)
 
-        ns_log Notice "edit tid: $t_id rid: $r_id pid: $p_id"
-
         db_dml add_assignment { }
 
     }
@@ -343,11 +329,3 @@
 }
 
 
-ns_log notice it's my page, but later!
-set mypage [ns_getform]
-if {[string equal "" $mypage]} {
-    ns_log notice no form was submitted on my page
-} else {
-    ns_log notice the following form was submitted on my page
-    ns_set print $mypage
-}