Index: openacs-4/packages/acs-subsite/www/admin/object-types/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/object-types/index.tcl,v
diff -u -r1.4 -r1.4.12.1
--- openacs-4/packages/acs-subsite/www/admin/object-types/index.tcl	6 Sep 2002 22:19:32 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/object-types/index.tcl	4 Jun 2005 18:48:23 -0000	1.4.12.1
@@ -8,26 +8,7 @@
 
 } {}
 
-set title "OpenACS Object Type Administration"
+set page_title "Object Type Hierarchical Index"
+set context [list "Object Type Hierarchical Index"]
 
-set page "
-[ad_admin_header $title]
-<h2>$title</h2>
-[ad_context_bar $title]
-<hr>
-<ul>"
-
-append page "
- <table border=0 cellspacing=0 cellpadding=0 width=90%>
-  <tr>
-   <td valign=top>[acs_object_type_hierarchy]
-   </td>
-   <td valign=top align=right><a href=\"./alphabetical-index\">Alphabetical Index</a></td>
-  </tr>
- </table>"
-
-append page "
-</ul>
-[ad_admin_footer]"
-
-ns_return 200 text/html $page
+set object_type_hierarchy [acs_object_type_hierarchy]