Index: openacs-4/packages/acs-subsite/www/admin/site-map/unmounted.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/unmounted.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-subsite/www/admin/site-map/unmounted.tcl 3 Apr 2003 10:44:58 -0000 1.5
+++ openacs-4/packages/acs-subsite/www/admin/site-map/unmounted.tcl 12 Mar 2005 21:36:37 -0000 1.6
@@ -8,40 +8,14 @@
}
-doc_body_append "[ad_header "Unmounted Packages"]
-
Unmounted Packages
-[ad_context_bar [list "index" "Site Map"] "Unmounted Packages"]
-
-
-The following application packages are not mounted anywhere. You can delete an unmounted package
-by clicking the \"delete\" option.
-
-"
-
+set page_title "Unmounted Packages"
+set context [list [list "." "Site Map"] $page_title]
set user_id [ad_conn user_id]
-db_foreach packages_normal_select {} {
- doc_body_append "- $name \[delete\]"
-} if_no_rows {
- doc_body_append "There are no unmounted packages"
+db_multirow -extend {instance_delete_url} packages_normal packages_normal_select {} {
+ set instance_delete_url [export_vars -base instance-delete package_id]
}
-doc_body_append "
-
-The following services are singleton packages and are usually not meant to
-be mounted anywhere. Be careful not to delete a service that is in use as this
-can potentially break the system.
-
-"
-
-db_foreach packages_singleton_select {} {
- doc_body_append "- $name \[delete\]"
-} if_no_rows {
- doc_body_append "There are no unmounted singleton packages
"
+db_multirow -extend {instance_delete_url} packages_singleton packages_singleton_select {} {
+ set instance_delete_url [export_vars -base instance-delete package_id]
}
-
-doc_body_append "
-
-
-[ad_footer]
-"