Index: openacs-4/packages/acs-admin/www/install/install.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/install/install.tcl,v diff -u -r1.4.2.2 -r1.4.2.3 --- openacs-4/packages/acs-admin/www/install/install.tcl 28 Sep 2005 18:00:33 -0000 1.4.2.2 +++ openacs-4/packages/acs-admin/www/install/install.tcl 26 Nov 2005 10:05:31 -0000 1.4.2.3 @@ -37,6 +37,9 @@ # If in upgrade mode, only add to list if it's an upgrade if { !$upgrade_p || [string equal $version(install_type) upgrade] } { + if {![exists_and_not_null version(maturity)]} { + set version(maturity) "" + } set package([string toupper $version(package-name)]) \ [list \ $version(package.key) \ @@ -61,14 +64,22 @@ multirow create packages package_key package_name version_name package_type install_type summary maturity foreach name [lsort -ascii [array names package]] { set row $package($name) + if {[info exists apm::package_version::attributes::maturity_int_to_text]} { + set maturity_text "[apm::package_version::attributes::maturity_int_to_text [lindex $row 6]]" + set maturity_label {[apm::package_version::attributes::get_pretty_name maturity]} + } else { + set maturity_text "" + set maturity_label "Maturity" + } + multirow append packages \ [lindex $row 0] \ [lindex $row 1] \ [lindex $row 2] \ [lindex $row 3] \ [lindex $row 4] \ [lindex $row 5] \ - [apm::package_version::attributes::maturity_int_to_text [lindex $row 6]] + $maturity_text } multirow extend packages install_url @@ -98,7 +109,7 @@ label "Summary" } maturity { - label {[apm::package_version::attributes::get_pretty_name maturity]} + label "$maturity_label" } version_name { label "Version"