Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	18 Oct 2001 21:06:09 -0000	1.13
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	14 Aug 2002 18:57:56 -0000	1.14
@@ -1139,7 +1139,7 @@
 	set path [lindex $file 0]
 	set file_type [lindex $file 1]
         set file_db_type [lindex $file 2]
-	ns_log Debug "APM: Checking \"$path\" of type \"$file_type\" and db_type \"$file_db_type\"."
+	apm_log APMDebug "APM: Checking \"$path\" of type \"$file_type\" and db_type \"$file_db_type\"."
 
         # DRB: we return datamodel files which match the given database type or for which no db_type
         # is defined.  The latter case is a kludge to simplify support of legacy ACS Oracle-only
@@ -1156,13 +1156,13 @@
 		    lappend upgrade_file_list [list $path $file_type $package_key]
 		}
 	    } else {
-		ns_log Debug "APM: Adding $path to the list of data model files."
+		apm_log APMDebug "APM: Adding $path to the list of data model files."
 		lappend data_model_list [list $path $file_type $package_key ]
 	    }
 	}
     }
     set file_list [concat [apm_order_upgrade_scripts $upgrade_file_list] $data_model_list]
-    ns_log Debug "APM: Data model scripts for $package_key: $file_list"
+    apm_log APMDebug "APM: Data model scripts for $package_key: $file_list"
     return $file_list
 }
 
Index: openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl	29 Aug 2001 21:22:49 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl	14 Aug 2002 18:57:56 -0000	1.10
@@ -93,7 +93,7 @@
         where  v.version_id = :version_id
         and    v.package_key = t.package_key
     }
-    ns_log Debug "APM: Writing Package Specification for $pretty_name $version_name"
+    apm_log APMDebug "APM: Writing Package Specification for $pretty_name $version_name"
     append spec "<?xml version=\"1.0\"?>
 <!-- Generated by the OpenACS Package Manager -->
 
@@ -128,7 +128,7 @@
         append spec ">[ad_quotehtml $owner_name]</owner>\n"
     }
 
-    ns_log Debug "APM: Writing Version summary and description"
+    apm_log APMDebug "APM: Writing Version summary and description"
     if { ![empty_string_p $summary] } {
         append spec "        <summary>[ad_quotehtml $summary]</summary>\n"
     }
@@ -152,7 +152,7 @@
 
     append spec "\n"
     
-    ns_log Debug "APM: Writing Dependencies."
+    apm_log APMDebug "APM: Writing Dependencies."
     db_foreach dependency_info {
         select dependency_type, service_uri, service_version
         from   apm_package_dependencies
@@ -166,7 +166,7 @@
 
 
     append spec "\n        <files>\n"
-    ns_log Debug "APM: Writing Files." 
+    apm_log APMDebug "APM: Writing Files." 
     db_foreach version_path "select path, file_type, db_type from apm_package_files where version_id = :version_id order by path" {
         append spec "            <file"
         if { ![empty_string_p $file_type] } {
@@ -181,7 +181,7 @@
     }
     append spec "        </files>
         <parameters>\n"
-    ns_log Debug "APM: Writing parameters"
+    apm_log APMDebug "APM: Writing parameters"
     db_foreach parameter_info {
 	select parameter_name, description, datatype, section_name, default_value, min_n_values, max_n_values
 	  from apm_parameters
@@ -214,7 +214,7 @@
     append spec "    </version>
 </package>
 "
-    ns_log Debug "APM: Finished writing spec."
+    apm_log APMDebug "APM: Finished writing spec."
     return $spec
 }
 
@@ -282,7 +282,7 @@
 
     apm_load_xml_packages
 
-    ns_log "Notice" "Reading specification file at $path"
+    apm_log APMDebug "Reading specification file at $path"
 
     set file [open $path]
     set xml_data [read $file]
@@ -294,7 +294,7 @@
     set tree [xml_parse $xml_data]
     # set package [dom::node cget $tree -firstChild]
     set root_node [xml_doc_get_first_node_by_name $tree package]
-    ns_log Debug "XML: root node is [ns_xml node name $root_node]"
+    apm_log APMDebug "XML: root node is [ns_xml node name $root_node]"
     set package $root_node
 
     # set root_name [dom::node cget $package -nodeName]
@@ -303,13 +303,13 @@
     # Debugging Children
     set root_children [xml_node_get_children $root_node]
 
-    ns_log Notice "XML - there are [llength $root_children] child nodes"
+    apm_log APMDebug "XML - there are [llength $root_children] child nodes"
     foreach child $root_children {
-	ns_log Debug "XML - one root child: [xml_node_get_name $child]"
+	apm_log APMDebug "XML - one root child: [xml_node_get_name $child]"
     }
 
     if { ![string equal $root_name "package"] } {
-	ns_log Debug "XML: the root name is $root_name"
+	apm_log APMDebug "XML: the root name is $root_name"
 	error "Expected <package> as root node"
     }
     set properties(package.key) [apm_required_attribute_value $package key]
@@ -442,7 +442,7 @@
     # Build a list of the packages parameters (if any)
 
     set properties(parameters) [list]
-    ns_log Debug "APM: Reading Parameters"
+    apm_log APMDebug "APM: Reading Parameters"
 
     # set parameters [dom::element getElementsByTagName $version "parameters"]
     set parameters [xml_node_get_children_by_name $version parameters]
@@ -467,7 +467,7 @@
 	    # set name [dom::element getAttribute $parameter_node name]
 	    set name [apm_attribute_value $parameter_node name]
 
-	    ns_log Debug "APM: Reading parameter $name with default $default_value"
+	    apm_log APMDebug "APM: Reading parameter $name with default $default_value"
 	    lappend properties(parameters) [list $name $description $section_name $datatype $min_n_values $max_n_values $default_value]
 	}
     }