Index: openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl	22 Jul 2005 05:05:07 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl	4 Jun 2006 00:45:45 -0000	1.5
@@ -8,38 +8,6 @@
 
 } {}
 
-set title "Alphabetical Index"
-
-set page "
-[ad_admin_header $title]
-<h2>$title</h2>
-[ad_context_bar [list "./index" "Object Type Administration"] $title]
-<hr>
-<ul>"
-
-set body ""
-db_foreach object_type_in_alphabetical_order {
-    select object_type,
-           pretty_name
-      from acs_object_types
-     order by lower(pretty_name)
-} {
-
-    append body "\n    <a href=\"./one?[export_url_vars object_type]\">[lang::util::localize $pretty_name]</a><br>"
-
-}
-
-append page "
- <table border=0 cellspacing=0 cellpadding=0 width=90%>
-  <tr>
-   <td valign=top>$body
-   </td>
-   <td valign=top align=right><a href=\"./index\">Hierarchical Index</a></td>
-  </tr>
- </table>"
-
-append page "
-</ul>
-[ad_admin_footer]"
-
-ns_return 200 text/html $page
\ No newline at end of file
+set page_title "Object Type Alphabetical Index"
+set context [list "Object Type Alphabetical Index"]
+db_multirow alpha_object_types object_type_in_alphabetical_order {}