Index: openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl,v
diff -u -r1.5 -r1.5.12.1
--- openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl	6 Sep 2002 22:19:32 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/admin/object-types/one.tcl	4 Jun 2005 19:35:21 -0000	1.5.12.1
@@ -12,46 +12,17 @@
     object_type:notnull
 }
 
-
-if { ![db_0or1row object_type {
-    select supertype,
-           abstract_p,
-           pretty_name,
-           pretty_plural,
-           table_name,
-           id_column,
-           name_method,
-           type_extension_table,
-           package_name,
-           dynamic_p
-      from acs_object_types
-     where object_type = :object_type
-}] } {
-    ad_return_complaint 1 "<li> The specified object type, $object_type, does not exist"
+if { ![db_0or1row object_type {}] } {
+    ad_return_complaint 1 "The specified object type, $object_type, does not exist"
     ad_script_abort
 }
 
+set page_title "Details for type $pretty_name"
+set context [list [list index "Object Type Index"] "Details for type $pretty_name"]
 
+set page "[acs_object_type_hierarchy -object_type $object_type]"
 
-set title "Details for type $pretty_name"
-
-set page "
-[ad_admin_header $title]
-<h2>$title</h2>
-[ad_context_bar [list "./" "Object Type Administration"] $title]
-<hr>
-<ul>"
-
 append page "
- <table border=0 cellspacing=0 cellpadding=0 width=90%>
-  <tr>
-   <td>[acs_object_type_hierarchy -object_type $object_type]</td>
-   <td align=right>
-    <a href=\"./index\">Hierarchical Index</a>&nbsp;|&nbsp;<a href=\"./alphabetical-index\">Alphabetical Index</a>
-   </td>
-  </tr>
- </table>
-
 <p>
 <b>Information</b>:
  <ul>
@@ -197,6 +168,4 @@
 
 append page "
 </ul>
-[ad_admin_footer]"
-
-ns_return 200 text/html $page
+"