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.14 -r1.15
--- openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl	17 Feb 2003 23:55:13 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/apm-xml-procs.tcl	10 Mar 2003 19:19:14 -0000	1.15
@@ -9,7 +9,7 @@
     @cvs-id $Id$
 } 
 
-ad_proc -private -deprecated apm_load_xml_packages {} {
+ad_proc -private -deprecated -warn apm_load_xml_packages {} {
 
     <p>
     NOTE: This proc doesn't do anything anymore.
@@ -22,17 +22,6 @@
     </p>
 
 } {
-    global ad_conn
-    if { ![info exists ad_conn(xml_loaded_p)] } {
-	# ns_xml needs to be loaded
-
-#  	foreach file [glob "[acs_package_root_dir acs-tcl]/tcl/xml-*-procs.tcl"] {
-#  	    apm_source $file
-#  	}
-	set ad_conn(xml_loaded_p) 1
-    }
-
-#    package require xml 1.9
 }
 
 ad_proc -private apm_required_attribute_value { element attribute } {
@@ -514,4 +503,3 @@
 
     return $return_value
 }
-