Index: openacs-4/packages/acs-api-browser/www/proc-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/proc-view.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/acs-api-browser/www/proc-view.tcl 6 Sep 2002 21:49:54 -0000 1.2 +++ openacs-4/packages/acs-api-browser/www/proc-view.tcl 6 Oct 2002 05:52:39 -0000 1.2.2.1 @@ -26,8 +26,18 @@ set source_p $default_source_p } +# Try and be helpful about the procedure. if { ![nsv_exists api_proc_doc $proc] } { - set error_msg "This proc is not defined with ad_proc or proc_doc" + if {![empty_string_p [namespace eval :: [list info procs $proc]]]} { + set error_msg "

This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.

The procedure is defined as:

+proc $proc {[info args $proc]} {
+[ad_quotehtml [info body $proc]]
+}

" + } elseif {![empty_string_p [namespace eval :: [list info commands $proc]]]} { + set error_msg "

The procedure $proc is an available command on the server and might be found in the TCL or AOLServer documentation or in documentation for a loadable module (like ns_cache for example).

" + } else { + set error_msg "

The procedure $proc is not defined in the server.

" + } } else { if { $source_p } {