Index: openacs-4/packages/acs-subsite/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/index.adp,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/www/admin/index.adp	22 May 2003 14:07:26 -0000	1.11
+++ openacs-4/packages/acs-subsite/www/admin/index.adp	18 Aug 2003 15:30:39 -0000	1.12
@@ -20,5 +20,8 @@
 <li><a href="@acs_admin_url@apm">Package Manager</a>
 <li><a href="@acs_admin_url@cache">Cache Info</a>
 <li><a href="@acs_admin_url@tests">Tests</a>
+<li><a href="@acs_automated_testing_url@admin">Automated Testing</a>
+<li><a href="@acs_lang_admin_url@">Internationalization/Localization</a>
+
 </ul>
 </ul>
Index: openacs-4/packages/acs-subsite/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/index.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/index.tcl	22 May 2003 14:07:26 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/index.tcl	18 Aug 2003 15:30:39 -0000	1.8
@@ -12,15 +12,23 @@
     subsite_name:onevalue
     acs_admin_url:onevalue
     instance_name:onevalue
+    acs_automated_testing_url:onevalue
+    acs_lang_admin_url:onevalue
 }
 
 array set this_node [site_node::get -url [ad_conn url]]
 set subsite_name $this_node(instance_name)
 
-set acs_admin_url "/acs-admin"
+set acs_admin_url "/acs-admin/"
 array set acs_admin_node [site_node::get -url $acs_admin_url]
 set acs_admin_name $acs_admin_node(instance_name)
 
+# JA: temporary: should replace this with a real function
+set acs_automated_testing_url "/automated-test/" 
+
+# JA: temporary: should replace this with a real function
+set acs_lang_admin_url "/acs-lang/admin/"
+
 # Dirk: temporary fix for noquote hacking
 set acs_admin_available_p 1
 set instance_name "foobar"
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.12 -r1.13
--- openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	14 Apr 2003 14:02:07 -0000	1.12
+++ openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	18 Aug 2003 15:30:39 -0000	1.13
@@ -162,13 +162,13 @@
       # Is the object a package?
       if {![empty_string_p $package_id]} {
 	if {$object_admin_p && ($parameter_count > 0)} {
-	  lappend controls "<a href=parameter-set?[export_url_vars package_id]>set parameters</a>"
+	  lappend controls "<a href=parameter-set?[export_url_vars package_id]>parameters</a>"
 	}
       }
 
       # Add a link to control permissioning
       if {$object_admin_p} {
-	lappend controls "<a href=\"../../permissions/one?[export_url_vars object_id]\">set permissions</a>"
+	lappend controls "<a href=\"../../permissions/one?[export_url_vars object_id]\">permissions</a>"
 	lappend controls "<a href=\"?[export_url_vars expand:multiple root_id rename_application=$node_id]\">rename</a>"
         lappend controls "<a href=\"instance-delete?package_id=$object_id&root_id=$root_id\" onclick=\"return confirm('Are you sure you want to delete node $name and any package mounted there?');\">delete</a>"
       }