Index: openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-assign-add-edit.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	26 Jan 2004 15:39:40 -0000	1.7
+++ openacs-4/contrib/packages/project-manager/www/task-assign-add-edit.tcl	12 Mar 2004 13:44:45 -0000	1.8
@@ -1,13 +1,3 @@
-ns_log notice task assign add edit page
-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 and edit assignments to a task
@@ -119,7 +109,6 @@
 
 } -new_data {
 
-    ns_log Notice "new_data"
     #role_id 
     #party_id
 
@@ -212,8 +201,6 @@
         set r_id  $assignment_role($pl)
         set p_id  $assignment_party($pl)
 
-        ns_log Notice "tid: $t_id rid: $r_id pid: $p_id"
-
         set subject "New Task \#$t_id: $one_lines($t_id)"
 
         if {[string equal $use_uncertain_completion_times_p 1]} {
@@ -251,17 +238,17 @@
 -----------
 $descriptions($t_id)"
 
-        notification::request::new \
-            -type_id [notification::type::get_type_id -short_name pm_task_notif] \
-            -object_id $t_id \
-            -user_id $p_id \
-            -interval_id [notification::interval::get_id_from_name -name instant] \
-            -delivery_method_id [notification::delivery::get_id -short_name email]
+        #notification::request::new \
+        #    -type_id "[notification::type::get_type_id -short_name pm_task_notif]" \
+        #    -object_id $t_id \
+        #    -user_id $p_id \
+        #    -interval_id [notification::interval::get_id_from_name -name instant] \
+        #    -delivery_method_id [notification::delivery::get_id -short_name email]
 
         notification::new \
             -type_id [notification::type::get_type_id -short_name pm_task_notif] \
             -object_id $t_id \
-            -response_id $user_id \
+            -response_id $t_id \
             -notif_subject $subject \
             -notif_text $notification_text
 
@@ -271,7 +258,6 @@
         
 } -edit_data {
 
-    ns_log Notice "edit_data"
     # do something
     #role_id 
     #party_id
@@ -313,7 +299,7 @@
             
             # keyname looks like 2308.1 - 2308.10
             # first element is task_id, second is 1-10
-            # if keyvalu is not empty, then we pay attention to it.
+             # if keyvalu is not empty, then we pay attention to it.
 
             if {[exists_and_not_null keyvalu]} {
 
@@ -338,8 +324,6 @@
         set r_id  $assignment_role($pl)
         set p_id  $assignment_party($pl)
 
-        ns_log Notice "tid: $t_id rid: $r_id pid: $p_id"
-
         db_dml add_assignment { }
 
     }
@@ -353,8 +337,6 @@
 
 # we create a terrible monster array
 
-ns_log Notice "process_task_id: $process_task_id "
-
 set index 0
 
 foreach tiid $task_id {
@@ -373,8 +355,6 @@
             lappend users_values $pid
         }
 
-        ns_log Notice "roles_values: $roles_values"
-        ns_log Notice "users_values: $users_values"
     }
 
     set users_length [string length $users_values]
@@ -412,11 +392,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
-}