Index: openacs-4/packages/acs-api-browser/www/type-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/type-view.tcl,v
diff -u -N
--- openacs-4/packages/acs-api-browser/www/type-view.tcl	10 Sep 2019 12:57:29 -0000	1.8.2.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,53 +0,0 @@
-ad_page_contract {
-
-    Displays information about a type.
-
-    This page is currently in a non working state, as well as the
-    api_type_documentation api it makes use of.
-
-    @cvs-id $Id: type-view.tcl,v 1.8.2.1 2019/09/10 12:57:29 antoniop Exp $
-
-} {
-    version_id:naturalnum,optional
-    type:token
-} -properties {
-    title:onevalue
-    context:onevalue
-    documentation:onevalue
-}
-
-if { ![info exists version_id] 
-     && [regexp {^([^ /]+)/} $type "" package_key] 
- } {
-    db_0or1row version_id_from_package_key {
-        select version_id 
-          from apm_enabled_package_versions 
-         where package_key = :package_key
-    }
-}
- 
-
-set public_p [::apidoc::set_public $version_id]
-
-
-set context [list]
-
-if { [info exists version_id] } {
-    db_1row package_info_from_version_id {
-        select package_name, package_key, version_name
-          from apm_package_version_info
-         where version_id = :version_id
-    }
-    lappend context [list "package-view?version_id=$version_id&kind=types" "$package_name $version_name"]
-}
-
-lappend context $type
-
-set title $type
-set documentation [api_type_documentation $type]
-
-# Local variables:
-#    mode: tcl
-#    tcl-indent-level: 4
-#    indent-tabs-mode: nil
-# End: