Index: openacs-4/packages/acs-api-browser/www/package-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/package-view.tcl,v
diff -u -r1.7.2.7 -r1.7.2.8
--- openacs-4/packages/acs-api-browser/www/package-view.tcl	2 Sep 2014 18:04:07 -0000	1.7.2.7
+++ openacs-4/packages/acs-api-browser/www/package-view.tcl	10 Sep 2014 20:19:27 -0000	1.7.2.8
@@ -26,7 +26,7 @@
     content_pages:multirow
 }
 
-set public_p [::apidoc::api_set_public $version_id $public_p]
+set public_p [::apidoc::set_public $version_id $public_p]
 
 db_0or1row pretty_name_from_package_id {
     select pretty_name, package_key, version_name
@@ -76,7 +76,7 @@
             
             if { [nsv_exists api_library_doc $full_path] } {
                 array set doc_elements [nsv_get api_library_doc $full_path]
-                set first_sentence [::apidoc::api_first_sentence [lindex $doc_elements(main) 0]]
+                set first_sentence [::apidoc::first_sentence [lindex $doc_elements(main) 0]]
                 set view procs-file-view
             } else {
                 set first_sentence ""
@@ -106,7 +106,7 @@
                     continue
                 }
             }
-            multirow append procedures $proc [::apidoc::api_first_sentence [lindex $doc_elements(main) 0]]
+            multirow append procedures $proc [::apidoc::first_sentence [lindex $doc_elements(main) 0]]
         }
     }
     sql_files {
@@ -156,7 +156,7 @@
                             set type $doc_elements(type)
                         }
                         if { [info exists doc_elements(main)] } {
-                            set first_sentence [::apidoc::api_first_sentence [lindex $doc_elements(main) 0]]
+                            set first_sentence [::apidoc::first_sentence [lindex $doc_elements(main) 0]]
                         }
                     } else {
                         set content_type directory