Index: openacs.org-dev/packages/acs-core-docs/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-core-docs/www/index.adp,v diff -u -r1.5 -r1.6 --- openacs.org-dev/packages/acs-core-docs/www/index.adp 8 Oct 2002 17:05:03 -0000 1.5 +++ openacs.org-dev/packages/acs-core-docs/www/index.adp 28 Oct 2002 15:12:21 -0000 1.6 @@ -1,43 +1,29 @@ -<% -# - -# -# -#OpenACS Documentation -# -# - -# -%> -
- - + --> + - + @@ -62,8 +48,11 @@ set found_p 0 if {[db_table_exists apm_package_types]} { - db_foreach get_installed_pkgs "select package_key, pretty_name from apm_package_types" { - set found_p 1 + db_foreach get_installed_pkgs "select package_key, pretty_name from apm_package_types order by upper(pretty_name) " { + if { ! $found_p } { + set found_p 1 + adp_puts "Installed Packages\n\n" + } set index_page [lindex [glob -nocomplain \ "[acs_package_root_dir $package_key]/www/doc/index.*"] 0] @@ -73,16 +62,34 @@ } else { adp_puts "- $package_key\n" } - } - } + } else { + if {![empty_string_p $pretty_name]} { + adp_puts "- $pretty_name\n" + } else { + adp_puts "- $package_key\n" + } + } + } } - if {!$found_p} { adp_puts "- No installed packages.\n" } +set packages [core_docs_uninstalled_packages] +if { ! [empty_string_p $packages] } { + adp_puts "\nUninstalled packages\n\n" + foreach {key name} $packages { + set index_page [lindex [glob -nocomplain \ + "[acs_package_root_dir $key]/www/doc/index.*"] 0] + if { [file exists $index_page] } { + adp_puts "- $name\n" + } else { + adp_puts "- $name\n" + } + } +} %> @@ -93,16 +100,11 @@

This software is mostly Copyright 1995-2000 ArsDigita Corporation
and licensed under the -GNU General Public License, version 2 (June 1991) +GNU General Public License, version 2 (June 1991)

Questions or comments about the documentation?
Please visit the OpenACS bboards or shoot email at vinod@kurup.com or rmello at fslc.usu.edu.

- -<% -# -# -%> Index: openacs.org-dev/packages/acs-core-docs/www/installed.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-core-docs/www/installed.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs.org-dev/packages/acs-core-docs/www/installed.tcl 28 Oct 2002 15:12:21 -0000 1.1 @@ -0,0 +1,2 @@ +# I want to redirect and change index rather than copy it to installed.adp (blech) +rp_internal_redirect /packages/acs-core-docs/www/index
Basic OpenACS Installed PackagesPackage Documentation 
For Everyone
         - OpenACS 4.5 Release Notes
-        - Older Release Notes
+        - Older Release Notes
 
 For OpenACS-admins
 	- Unix Installation Guide
         - Windows Installation Guide
-        - OpenACS Repository
 
 For Developers
 	- Kernel Documentation
@@ -48,7 +34,7 @@
 
 Primers and References
         - AOLserver Documentation 
-	  (the Tcl Developer's Guide in particular.)
+	  (the Tcl Developer's Guide in particular.)
         - Tcl for Web Nerds
         - SQL for Web Nerds