Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.adp'.
Fisheye: No comparison available. Pass `N' to diff?
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 -r1.3 -r1.3.12.1
--- openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl 6 Sep 2002 22:19:32 -0000 1.3
+++ openacs-4/packages/acs-subsite/www/admin/object-types/alphabetical-index.tcl 4 Jun 2005 18:48:23 -0000 1.3.12.1
@@ -8,38 +8,6 @@
} {}
-set title "Alphabetical Index"
-
-set page "
-[ad_admin_header $title]
-
$title
-[ad_context_bar [list "./index" "Object Type Administration"] $title]
-
-"
-
-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 $pretty_name
"
-
-}
-
-append page "
- "
-
-append page "
-
-[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 {}
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/acs-subsite/www/admin/object-types/index.adp'.
Fisheye: No comparison available. Pass `N' to diff?
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]
-$title
-[ad_context_bar $title]
-
-"
-
-append page "
- "
-
-append page "
-
-[ad_admin_footer]"
-
-ns_return 200 text/html $page
+set object_type_hierarchy [acs_object_type_hierarchy]