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 -r1.3 -r1.4
--- openacs-4/packages/acs-api-browser/www/type-view.tcl	26 Jan 2004 15:39:41 -0000	1.3
+++ openacs-4/packages/acs-api-browser/www/type-view.tcl	27 Oct 2014 16:39:00 -0000	1.4
@@ -5,16 +5,17 @@
     @cvs-id $Id$
 
 } {
-    version_id:optional
+    version_id:naturalnum,optional
     type
 } -properties {
     title:onevalue
     context:onevalue
     documentation:onevalue
 }
 
-if { ![info exists version_id] && \
-        [regexp {^([^ /]+)/} $type "" package_key] } {
+if { ![info exists version_id] 
+     && [regexp {^([^ /]+)/} $type "" package_key] 
+ } {
     db_0or1row version_id_from_package_key {
         select version_id 
           from apm_enabled_package_versions 
@@ -23,7 +24,7 @@
 }
  
 
-set public_p [api_set_public $version_id]
+set public_p [::apidoc::set_public $version_id]
 
 
 set context [list]
@@ -40,4 +41,4 @@
 lappend context $type
 
 set title $type
-set documentation [api_type_documentation $type]
\ No newline at end of file
+set documentation [api_type_documentation $type]