Index: openacs-4/packages/contacts/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/index.adp,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/www/admin/index.adp	28 May 2005 15:44:06 -0000	1.4
+++ openacs-4/packages/contacts/www/admin/index.adp	28 Jun 2005 19:23:41 -0000	1.5
@@ -13,6 +13,10 @@
   <li>#contacts.lt_The_default_group_mus#</li>
 </ul>
 <p>#contacts.lt_Once_ready_for_releas#</p>
+<ul class="action-links">
+  <li><a href="@ams_person_url@">Default Person Form</a></li>
+  <li><a href="@ams_org_url@">Default Organization Form</a></li>
+</ul>
 <listtemplate name="groups"></listtemplate>
 
 
Index: openacs-4/packages/contacts/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/admin/index.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/www/admin/index.tcl	12 Jun 2005 21:23:16 -0000	1.6
+++ openacs-4/packages/contacts/www/admin/index.tcl	28 Jun 2005 19:23:41 -0000	1.7
@@ -116,6 +116,20 @@
 }
 
 
+    set ams_person_url [ams::list::url \
+                          -package_key "contacts" \
+                          -object_type "person" \
+                          -list_name "${package_id}__-2" \
+                          -pretty_name "${package_id}__-2" \
+                          -return_url $return_url \
+                          -return_url_label "[_ contacts.Return_to_title]"]
+    set ams_org_url [ams::list::url \
+                          -package_key "contacts" \
+                          -object_type "organization" \
+                          -list_name "${package_id}__-2" \
+                          -pretty_name "${package_id}__-2" \
+                          -return_url $return_url \
+                          -return_url_label "[_ contacts.Return_to_title]"]