Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 28 Aug 2003 09:11:16 -0000 1.9 +++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl 2 Sep 2003 10:05:55 -0000 1.10 @@ -20,9 +20,7 @@ # LARS: We do this here, because if we do it in the -init file, then we cannot register # test cases in -procs files of packages. -ns_log Debug "Maybe initialize test stuff? [nsv_exists aa_test cases]" if { ![nsv_exists aa_test cases] } { - ns_log Debug "LARS: Initializing test stuff" nsv_set aa_test cases {} nsv_set aa_test components {} nsv_set aa_test init_classes {} Index: openacs-4/packages/acs-service-contract/tcl/msg-type-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/msg-type-procs.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-service-contract/tcl/msg-type-procs.tcl 25 Feb 2003 15:15:33 -0000 1.2 +++ openacs-4/packages/acs-service-contract/tcl/msg-type-procs.tcl 2 Sep 2003 10:06:25 -0000 1.3 @@ -16,8 +16,6 @@ @param specification Msg type specification in the format required by the SQL proc, namely 'foo:integer,bar:[string]' } { - ns_log Notice "LARS: Creating msg_type $name with spec $specification" - db_exec_plsql insert_msg_type {} } @@ -57,8 +55,6 @@ @param name Name of new msg_type @param spec Spec in ad_page_contract style format, namely { foo:integer bar:string,multiple } } { - ns_log Notice "LARS: msg-type-parse-spec, name=$name, spec=$spec" - db_transaction { # First, create the msg_type Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 28 Aug 2003 09:41:39 -0000 1.4 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 2 Sep 2003 10:07:49 -0000 1.5 @@ -430,7 +430,6 @@ } else { foreach pattern $info(selected_patterns) { set full_pattern [file join $info(folder) $pattern] - ns_log Notice "LARS: pattern = $pattern ; current_url = $current_url ; full_pattern = $full_pattern ; info(folder) = $info(folder)" if { [string match $full_pattern $current_url] } { set selected_p 1 break Index: openacs-4/packages/file-storage/www/file-add-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-add-2.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/file-storage/www/file-add-2.tcl 7 Jul 2003 12:37:39 -0000 1.11 +++ openacs-4/packages/file-storage/www/file-add-2.tcl 2 Sep 2003 10:04:53 -0000 1.12 @@ -56,19 +56,14 @@ # create the new item if {$indb_p} { - ns_log Notice LARS1 set file_id [db_exec_plsql new_lob_file {}] - ns_log Notice LARS2 set version_id [db_exec_plsql new_version {}] - ns_log Notice LARS3 db_dml lob_content {} -blob_files [list ${upload_file.tmpfile}] - ns_log Notice LARS4 # Unfortunately, we can only calculate the file size after the lob is uploaded db_dml lob_size {} - ns_log Notice LARS5 } else { Index: openacs-4/packages/workflow/tcl/test/workflow-test-init.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/test/Attic/workflow-test-init.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/packages/workflow/tcl/test/workflow-test-init.tcl 1 Sep 2003 13:43:51 -0000 1.2 +++ openacs-4/packages/workflow/tcl/test/workflow-test-init.tcl 2 Sep 2003 10:07:17 -0000 1.3 @@ -79,9 +79,6 @@ set generated_spec [workflow::fsm::generate_spec -workflow_id $workflow_id] - ns_log Notice "LARS: Generated spec 2: $generated_spec" - ns_log Notice "LARS: Hard-coded spec 2: [workflow::test::get_message_key_spec]" - aa_true "Checking that generated spec 2 is identical to the spec that we created from (except for ordering)" \ [array_lists_equal_p $generated_spec [workflow::test::get_message_key_spec]] } Index: openacs-4/packages/workflow/tcl/test/workflow-test-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/test/workflow-test-procs.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/workflow/tcl/test/workflow-test-procs.tcl 1 Sep 2003 13:43:51 -0000 1.9 +++ openacs-4/packages/workflow/tcl/test/workflow-test-procs.tcl 2 Sep 2003 10:07:17 -0000 1.10 @@ -557,8 +557,6 @@ global desired_output set desired_output [workflow::case::fsm::get_info_not_cached $case_id] - ns_log Notice "LARS: desired_output = '$desired_output' ([llength $desired_output])" - # 1. Make sure the cache is populated set dummy [workflow::case::get_element -case_id $case_id -element state_short_name]