Index: openacs-4/packages/acs-api-browser/www/package-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/package-view.adp,v
diff -u -r1.6.22.1 -r1.6.22.2
--- openacs-4/packages/acs-api-browser/www/package-view.adp	11 Sep 2013 09:51:28 -0000	1.6.22.1
+++ openacs-4/packages/acs-api-browser/www/package-view.adp	14 Sep 2013 14:41:17 -0000	1.6.22.2
@@ -9,7 +9,7 @@
 <table cellspacing="0" cellpadding="0">
   <multiple name="procs_files">
   <tr valign=top>
-    <td><b><a href="procs-file-view?version_id=@version_id@&amp;path=@procs_files.full_path@">@procs_files.path@</a></b></td>
+    <td><b><a href="@procs_files.view@?version_id=@version_id@&amp;path=@procs_files.full_path@">@procs_files.path@</a></b></td>
     <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
     <td>@procs_files.first_sentence@&nbsp;</td>
   </tr>
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 -r1.7.2.1
--- openacs-4/packages/acs-api-browser/www/package-view.tcl	16 May 2013 08:41:46 -0000	1.7
+++ openacs-4/packages/acs-api-browser/www/package-view.tcl	14 Sep 2013 14:41:17 -0000	1.7.2.1
@@ -62,19 +62,21 @@
     procs_files {
         array set procs [list]
 
-        multirow create procs_files path full_path first_sentence
+        multirow create procs_files path full_path first_sentence view
 
-        foreach path [apm_get_package_files -package_key $package_key -file_types tcl_procs] {
+        foreach path [apm_get_package_files -package_key $package_key -file_types {tcl_procs include_page}] {
             set full_path "packages/$package_key/$path"
             
             if { [nsv_exists api_library_doc $full_path] } {
                 array set doc_elements [nsv_get api_library_doc $full_path]
                 set first_sentence "[api_first_sentence [lindex $doc_elements(main) 0]]"
+                set view procs-file-view
             } else {
                 set first_sentence ""
+                set view content-page-view
             }
 
-            multirow append procs_files $path $full_path $first_sentence
+            multirow append procs_files $path $full_path $first_sentence $view
         }
     }
     procs {