Index: openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl,v
diff -u -r1.9 -r1.9.2.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	10 Sep 2002 22:22:11 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	20 Dec 2002 12:22:10 -0000	1.9.2.1
@@ -202,6 +202,11 @@
 	doc_body_append "<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] } {
+          doc_body_append "<option value=\"/new\">--Install new package--</option>\n"
+      }
+
       doc_body_append "
         </select>
         </td>
Index: openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	10 Sep 2002 22:22:11 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	20 Dec 2002 12:22:10 -0000	1.3.2.1
@@ -15,6 +15,11 @@
     root_id:integer,optional
 }
 
+if { [string equal $package_key "/new"] } {
+    ad_returnredirect "/acs-admin/apm/packages-install"
+    ad_script_abort
+}
+
 set context_id [ad_conn package_id]
 
 db_transaction {