Index: openacs-4/packages/workflow/tcl/case-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/case-procs.tcl,v
diff -u -r1.6.2.2 -r1.6.2.3
--- openacs-4/packages/workflow/tcl/case-procs.tcl	28 Mar 2003 13:49:58 -0000	1.6.2.2
+++ openacs-4/packages/workflow/tcl/case-procs.tcl	22 Apr 2003 13:33:29 -0000	1.6.2.3
@@ -394,19 +394,12 @@
                 -impl $impl_name \
                 -call_args [list $case_id $object_id $role_id]]
 
-        ns_log Notice "LARS: $contract_name, $impl_name = $subquery"
-
         if { ![empty_string_p $subquery] } {
             # Return after the first non-empty list
             break
         }
     }
 
-    ns_log Notice "LARS: subquery = $subquery"
-
-    ns_log Notice "LARS: returning [db_map select_search_results]"
-
-
     return [db_map select_search_results]
 
     
@@ -1353,8 +1346,6 @@
 
         if { ![empty_string_p $object_id] } {
 
-            ns_log Notice "LARS: $body($type)"
-
             set notified_list [concat $notified_list [notification::new \
                     -type_id [notification::type::get_type_id -short_name $type] \
                     -object_id $object_id \