Index: generic/nsf.tcl =================================================================== diff -u -ra41b0fa988fe2e3acf21fb0336431a2abe2d55c4 -ra1ae1eab4085830b1090cc3dc9efdf6768d9fb17 --- generic/nsf.tcl (.../nsf.tcl) (revision a41b0fa988fe2e3acf21fb0336431a2abe2d55c4) +++ generic/nsf.tcl (.../nsf.tcl) (revision a1ae1eab4085830b1090cc3dc9efdf6768d9fb17) @@ -161,10 +161,10 @@ # namespace eval ::nsf::debug {} proc ::nsf::debug::call {level objectInfo methodInfo arglist} { - nsf::log Warning "DB call($level) - $objectInfo $methodInfo $arglist" + nsf::log Notice "DB call($level) - $objectInfo $methodInfo $arglist" } proc ::nsf::debug::exit {level objectInfo methodInfo result usec} { - nsf::log Warning "DB exit($level) - $objectInfo $methodInfo $usec usec -> $result" + nsf::log Notice "DB exit($level) - $objectInfo $methodInfo $usec usec -> $result" } # Index: generic/predefined.h =================================================================== diff -u -r96f4410aa6510a664938b6ef6e5d43c3a3a18d68 -ra1ae1eab4085830b1090cc3dc9efdf6768d9fb17 --- generic/predefined.h (.../predefined.h) (revision 96f4410aa6510a664938b6ef6e5d43c3a3a18d68) +++ generic/predefined.h (.../predefined.h) (revision a1ae1eab4085830b1090cc3dc9efdf6768d9fb17) @@ -63,12 +63,13 @@ "puts stderr \"$level: $msg\"}}\n" "namespace eval ::nsf::debug {}\n" "proc ::nsf::debug::call {level objectInfo methodInfo arglist} {\n" -"nsf::log Warning \"DB call($level) - $objectInfo $methodInfo $arglist\"}\n" +"nsf::log Notice \"DB call($level) - $objectInfo $methodInfo $arglist\"}\n" "proc ::nsf::debug::exit {level objectInfo methodInfo result usec} {\n" -"nsf::log Warning \"DB exit($level) - $objectInfo $methodInfo $usec usec -> $result\"}\n" +"nsf::log Notice \"DB exit($level) - $objectInfo $methodInfo $usec usec -> $result\"}\n" "proc ::nsf::deprecated {what oldCmd newCmd} {\n" "set msg \"*** $what $oldCmd is deprecated.\"\n" "if {$newCmd ne \"\"} {append msg \" use $newCmd instead.\"}\n" +"puts stderr HERE\n" "nsf::log Warning $msg}\n" "proc tmpdir {} {\n" "foreach e [list TMPDIR TEMP TMP] {\n"