Index: openacs-4/packages/acs-admin/www/apm/package-deinstall.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-deinstall.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/apm/package-deinstall.tcl	11 Dec 2003 21:39:45 -0000	1.2
+++ openacs-4/packages/acs-admin/www/apm/package-deinstall.tcl	27 Oct 2014 16:38:51 -0000	1.3
@@ -9,30 +9,31 @@
     version_id:naturalnum
 }
 
-
 apm_version_info $version_id
 
-doc_body_append "[apm_header [list "version-view?version_id=$version_id" "$pretty_name $version_name"] "Deinstall"]"
+set title "Deinstall"
+set context [list [list "/acs-admin/apm/" "Package Manager"] \
+		 [list "version-view?version_id=$version_id" "$pretty_name $version_name"] \
+		 $title]
 
-
 db_transaction {
-    doc_body_append "<ul>"
-    apm_package_deinstall -callback apm_doc_body_callback $package_key
-    doc_body_append "</ul>"
+    append body "<ul>\n"
+    set ::__apm_body ""
+    apm_package_deinstall -callback apm_body_callback $package_key
+    append body $::__apm_body
+    append body "</ul>\n"
 } on_error {
     if {![apm_version_installed_p $version_id] } {
 	ad_return_complaint 1 "Database Error: The database returned the following error
 	message <pre><blockquote>[ad_quotehtml $errmsg]</blockquote></pre>"
     }
 }
 
-doc_body_append "
-<p>
-Return to the <a href=\"index\">index</a>.
-[ad_footer]
-"
+append body {
+    <p>Return to the <a href='index'>index</a>
+}
 
+ad_return_template apm
 
 
 
-