Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.45 -r1.46
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	2 Apr 2003 15:56:25 -0000	1.45
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	14 Apr 2003 14:01:05 -0000	1.46
@@ -1434,3 +1434,32 @@
         ns_log $level "$msg"
     }
 }
+
+ad_proc -private apm_application_new_checkbox {} {
+    Return an HTML checkbox of package_key and package names
+    for applications that can be mounted in the site-map. Excludes
+    singletons that are already instantiated.
+
+    @author Peter Marklund
+} {
+    set html_string "<select name=package_key>"
+
+    db_foreach package_types {
+      select package_key, pretty_name
+      from apm_package_types
+      where not (apm_package.singleton_p(package_key) = 1 and
+            apm_package.num_instances(package_key) >= 1)
+      order by pretty_name
+    } {
+      append html_string "<option value=$package_key>$pretty_name</option>\n"
+    }
+
+    # If this is a site-wide admin, offer a link to the package manager
+    if { [ad_permission_p 0 admin] } {
+        append html_string "<option value=\"/new\">--Install new package--</option>\n"
+    }
+
+    append html_string "</select>"
+
+    return $html_string
+}