Index: openacs-4/packages/acs-admin/www/apm/build-repository.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/Attic/build-repository.tcl,v
diff -u -N -r1.18.2.2 -r1.18.2.3
--- openacs-4/packages/acs-admin/www/apm/build-repository.tcl	10 Sep 2015 08:21:01 -0000	1.18.2.2
+++ openacs-4/packages/acs-admin/www/apm/build-repository.tcl	18 Sep 2015 07:39:03 -0000	1.18.2.3
@@ -184,19 +184,19 @@
                     
                     append manifest {  } {<package>} \n
                 
-                    append manifest {    } {<package-key>} [ad_quotehtml $version(package.key)] {</package-key>} \n
-                    append manifest {    } {<version>} [ad_quotehtml $version(name)] {</version>} \n
-                    append manifest {    } {<pretty-name>} [ad_quotehtml $version(package-name)] {</pretty-name>} \n
-                    append manifest {    } {<package-type>} [ad_quotehtml $version(package.type)] {</package-type>} \n
-                    append manifest {    } {<summary>} [ad_quotehtml $version(summary)] {</summary>} \n
-                    append manifest {    } {<description format="} [ad_quotehtml $version(description.format)] {">} 
-                    append manifest [ad_quotehtml $version(description)] {</description>} \n
-                    append manifest {    } {<release-date>} [ad_quotehtml $version(release-date)] {</release-date>} \n
-                    append manifest {    } {<maturity>} [ad_quotehtml $version(maturity)] {</maturity>} \n
-                    append manifest {    } {<license url="} [ad_quotehtml $version(license_url)] {">}
-		    append manifest [ad_quotehtml $version(license)] {</license>} \n
-                    append manifest {    } {<vendor url="} [ad_quotehtml $version(vendor.url)] {">} 
-                    append manifest [ad_quotehtml $version(vendor)] {</vendor>} \n
+                    append manifest {    } {<package-key>} [ns_quotehtml $version(package.key)] {</package-key>} \n
+                    append manifest {    } {<version>} [ns_quotehtml $version(name)] {</version>} \n
+                    append manifest {    } {<pretty-name>} [ns_quotehtml $version(package-name)] {</pretty-name>} \n
+                    append manifest {    } {<package-type>} [ns_quotehtml $version(package.type)] {</package-type>} \n
+                    append manifest {    } {<summary>} [ns_quotehtml $version(summary)] {</summary>} \n
+                    append manifest {    } {<description format="} [ns_quotehtml $version(description.format)] {">} 
+                    append manifest [ns_quotehtml $version(description)] {</description>} \n
+                    append manifest {    } {<release-date>} [ns_quotehtml $version(release-date)] {</release-date>} \n
+                    append manifest {    } {<maturity>} [ns_quotehtml $version(maturity)] {</maturity>} \n
+                    append manifest {    } {<license url="} [ns_quotehtml $version(license_url)] {">}
+		    append manifest [ns_quotehtml $version(license)] {</license>} \n
+                    append manifest {    } {<vendor url="} [ns_quotehtml $version(vendor.url)] {">} 
+                    append manifest [ns_quotehtml $version(vendor)] {</vendor>} \n
 
                     append manifest [apm::package_version::attributes::generate_xml \
                                          -version_id $version_id \
@@ -234,7 +234,7 @@
                         close $fp
 
                         lappend cmd "|" [apm_gzip_cmd] -c ">" $apm_file
-                        #ns_log Notice "Executing: [ad_quotehtml $cmd]"
+                        #ns_log Notice "Executing: [ns_quotehtml $cmd]"
                         eval $cmd
                     }
 
@@ -243,17 +243,17 @@
 
                     append manifest {    } {<download-url>} $apm_url {</download-url>} \n
                     foreach elm $version(provides) {
-                        append manifest {    } "<provides url=\"[ad_quotehtml [lindex $elm 0]]\" version=\"[ad_quotehtml [lindex $elm 1]]\" />" \n
+                        append manifest {    } "<provides url=\"[ns_quotehtml [lindex $elm 0]]\" version=\"[ns_quotehtml [lindex $elm 1]]\" />" \n
                     }
                     
                     foreach elm $version(requires) {
-                        append manifest {    } "<requires url=\"[ad_quotehtml [lindex $elm 0]]\" version=\"[ad_quotehtml [lindex $elm 1]]\" />" \n
+                        append manifest {    } "<requires url=\"[ns_quotehtml [lindex $elm 0]]\" version=\"[ns_quotehtml [lindex $elm 1]]\" />" \n
                     }
                     
                     append manifest {  } {</package>} \n
                 } 
             } {
-                ns_write "<li> Error on spec_file $spec_file: [ad_quotehtml $errmsg]<br>[ad_quotehtml $::errorInfo]\n"
+                ns_write "<li> Error on spec_file $spec_file: [ns_quotehtml $errmsg]<br>[ns_quotehtml $::errorInfo]\n"
             }
         }
     }