Index: openacs-4/packages/acs-api-browser/www/procs-file-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/procs-file-view.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	9 May 2018 15:33:28 -0000	1.12
+++ openacs-4/packages/acs-api-browser/www/procs-file-view.tcl	3 Sep 2024 15:37:30 -0000	1.13
@@ -4,7 +4,7 @@
     @cvs-id $Id$
 } {
     version_id:naturalnum,optional,notnull
-    { public_p:boolean "" }
+    { public_p:boolean,notnull "" }
     path:path,trim
     source_p:boolean,optional,trim,notnull
 } -properties {
@@ -27,20 +27,20 @@
 if { ![info exists version_id]
      && [regexp {^packages/([^ /]+)/} $path "" package_key] } {
     db_0or1row version_id_from_package_key {
-        select version_id 
-	from apm_enabled_package_versions 
-	where package_key = :package_key
+        select version_id
+          from apm_enabled_package_versions
+         where package_key = :package_key
     }
 }
 
 set path [apidoc::sanitize_path $path]
 if {![file readable ${::acs::rootdir}$path] || [file isdirectory ${::acs::rootdir}$path]} {
     if {[info exists version_id]} {
-	set kind procs
-	set href [export_vars -base [ad_conn package_url]/package-view {version_id {kind procs}}]
-	set link [subst {<p>Go back to <a href="[ns_quotehtml $href]">Package Documentation</a>.}]
+        set kind procs
+        set href [export_vars -base [ad_conn package_url]/package-view {version_id {kind procs}}]
+        set link [subst {<p>Go back to <a href="[ns_quotehtml $href]">Package Documentation</a>.}]
     } else {
-	set link [subst {<p>Go back to <a href="[ns_quotehtml [ad_conn package_url]]">API Browser</a>.}]
+        set link [subst {<p>Go back to <a href="[ns_quotehtml [ad_conn package_url]]">API Browser</a>.}]
     }
     ad_return_warning \
         "No such library file" \
@@ -75,7 +75,7 @@
          where version_id = :version_id
     }
     if {[info exists pretty_name]} {
-	lappend context [list [export_vars -base package-view {version_id}] "$pretty_name $version_name"]
+        lappend context [list [export_vars -base package-view {version_id}] "$pretty_name $version_name"]
     }
 
 }
@@ -100,7 +100,7 @@
             }
         }
         multirow append proc_list [api_proc_pretty_name -link $proc]
-    }   
+    }
     foreach proc [lsort [nsv_get api_proc_doc_scripts $path]] {
         if { $public_p } {
             array set doc_elements [nsv_get api_proc_doc $proc]