Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v diff -u -r1.72.2.48 -r1.72.2.49 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 15 Jul 2024 11:43:03 -0000 1.72.2.48 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 18 Jul 2024 14:38:28 -0000 1.72.2.49 @@ -425,7 +425,7 @@ ad_log warning "api_proc_documentation: received invalid proc_name <$proc_name>, try to sanitize" regsub -all -- {::::} $proc_name :: proc_name } - if {[info exists format]} { + if {[info exists format] && ![aa_test_running_p]} { ad_log warning "-format flag is deprecated and has no effect" } array set doc_elements { Index: openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl,v diff -u -r1.4.2.38 -r1.4.2.39 --- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl 5 Jul 2024 12:04:29 -0000 1.4.2.38 +++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl 18 Jul 2024 14:38:29 -0000 1.4.2.39 @@ -638,7 +638,7 @@ # set proc_to_search "ad_proc" set param_weight 3 - ns_log notice "HHHHHHHHHHHHH form_data $form_data" + #ns_log notice "HHHHHHHHHHHHH form_data $form_data" set d [::acs::test::form_reply \ -last_request $d \ -url [dict get $form_data @action] \ @@ -648,7 +648,7 @@ }] \ [dict get $form_data fields]] set reply [dict get $d body] - ns_log notice "HHHHHHHHHHHHH d $d" + #ns_log notice "HHHHHHHHHHHHH d $d" # # Check, if the form was correctly validated. # Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v diff -u -r1.29.2.21 -r1.29.2.22 --- openacs-4/packages/acs-lang/tcl/localization-procs.tcl 30 Jan 2024 15:57:35 -0000 1.29.2.21 +++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl 18 Jul 2024 14:38:29 -0000 1.29.2.22 @@ -600,9 +600,9 @@ set clock_gmt [clock scan $clock_local -format %s -gmt 1] set date_to [clock format $clock_gmt -format {%Y-%m-%d %H:%M:%S} -timezone $to] } on error {errmsg} { - ad_log notice \ + ns_log notice \ "lc_time_tz_convert: '$time_value' from '$from' to '$to' via Tcl returned:" \ - $errmsg + $errmsg "- use DB-based conversion" # # DB-based conversion