Index: openacs-4/packages/trackback/tcl/trackback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/trackback/tcl/trackback-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/trackback/tcl/trackback-procs.tcl	1 Oct 2003 19:13:04 -0000	1.2
+++ openacs-4/packages/trackback/tcl/trackback-procs.tcl	1 Nov 2003 08:45:39 -0000	1.3
@@ -34,8 +34,8 @@
 		    -is_live $is_live \
 		    -title $title \
 		    -context_id $object_id]
-       ns_log notice "Trackback tb_url=$tb_url blog_name=$blog_name"
-	db_dml add_trackback ""
+       ns_log Debug "Trackback tb_url=$tb_url blog_name=$blog_name"
+       db_dml add_trackback ""
 
     return $comment_id
 }
@@ -77,7 +77,7 @@
     # hopefully this will grab anthing starting with http://
     # maybe we need to check other stuff? 
     set links_list [regexp -all -inline {http://[^\"^\s]*} $content]
-    ns_log debug "trackback: List of links $links_list"
+    ns_log Debug "trackback: List of links $links_list"
     # get trackback url
     foreach link $links_list {
 	set result_list [ad_httpget -url $link]
@@ -171,6 +171,7 @@
 	ns_log debug "trackback: full url = ${ping_url}&${form_vars}"
 	# old style GET
 	set result [ns_httpget ${ping_url}&${form_vars} 60]
+        ns_log debug "trackback: trackback returned: $result"
     } else {
 	#must be POST
 
@@ -186,9 +187,8 @@
 	}
 
 	if {[catch {[ns_httppost $ping_url "" $query_set]} result]} {
-	        ns_log notice "trackback: trackback returned: $result"
+            ns_log debug "trackback: trackback returned: $result"
 	}
     }
-    ns_log debug "trackback: trackback returned: $result"
     return $result
 }
\ No newline at end of file