Index: openacs-4/packages/acs-api-browser/www/proc-browse.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-browse.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-api-browser/www/proc-browse.tcl	27 Oct 2014 16:39:00 -0000	1.5
+++ openacs-4/packages/acs-api-browser/www/proc-browse.tcl	7 Aug 2017 23:47:46 -0000	1.6
@@ -42,9 +42,9 @@
 	lappend matches [list $proc $doc_elements(script)] 
     } elseif {$type eq "Deprecated" && $doc_elements(deprecated_p)} {
 	lappend matches [list $proc $doc_elements(script)] 
-    } elseif {$type eq "Private" && $doc_elements(private_p) } {
+    } elseif {$type eq "Private" && $doc_elements(protection) eq "private" } {
 	lappend matches [list $proc $doc_elements(script)] 
-    } elseif {$type eq "Public" && $doc_elements(public_p) } {
+    } elseif {$type eq "Public" && $doc_elements(protection) eq "public" } {
 	lappend matches [list $proc $doc_elements(script)] 
     } 
 }
@@ -64,3 +64,9 @@
     multirow append proc_list $file $proc $url
 }
 
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: