Index: openacs-4/packages/acs-admin/www/apm/write-all-specs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/write-all-specs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/acs-admin/www/apm/write-all-specs.tcl	10 Jan 2007 21:21:59 -0000	1.6
+++ openacs-4/packages/acs-admin/www/apm/write-all-specs.tcl	27 Oct 2014 16:38:55 -0000	1.7
@@ -6,13 +6,16 @@
 } {
 }
 
-ad_return_top_of_page "[apm_header "Generate Package Specifications"]
+set title "Generate Package Specifications"
+set context [list [list "." "Package Manager"] $title]
+set template [parameter::get -package_id [ad_conn subsite_id] -parameter StreamingHead] 
+ad_return_top_of_page [ad_parse_template -params [list context title] $template]
 
-Regenerating all package specifications for locally maintained packages.
+ns_write {
+    Regenerating all package specifications for locally maintained packages.
+    <ul>
+}
 
-<ul>
-"
-
 db_foreach apm_get_all_packages {
     select version_id, version_name, pretty_name, distribution_uri, v.package_key
     from   apm_package_versions v, apm_package_types t
@@ -35,9 +38,6 @@
     }
 }
 
-db_release_unused_handles
-ns_write "</ul>
-
-<a href=\"./\">Return to the Package Manager</a>
-
-[ad_footer]"
+ns_write [subst {</ul>
+<a href="./">Return to the Package Manager</a>
+}]