Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -N -r1.75 -r1.76
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	19 May 2004 18:49:39 -0000	1.75
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	21 May 2004 09:24:08 -0000	1.76
@@ -123,6 +123,37 @@
     }
 }
 
+
+ad_proc -private apm_maturity_int_to_text { maturity } {
+    Get the internationalized maturity description
+    corresponding to the given integer package maturity level.
+
+    @author Peter Marklund
+} {
+    if {[exists_and_not_null maturity]} {
+
+        if { ![expr $maturity >= -1 && $maturity <= 3] } {
+            error "Maturity must be between -1 and 3 but is \"$maturity\""
+        }
+
+        set maturity_key(-1) "#acs-tcl.maturity_incompatible#"
+        set maturity_key(0) "#acs-tcl.maturity_new_submission#"
+        set maturity_key(1) "#acs-tcl.maturity_immature#"
+        set maturity_key(2) "#acs-tcl.maturity_mature#"
+        set maturity_key(3) "#acs-tcl.maturity_mature_and_standard#"
+
+        set result [lang::util::localize $maturity_key($maturity)]
+
+    } else {
+
+        set result ""
+
+    }
+
+    return $result
+}
+
+
 ad_proc -private pkg_info_new { package_key spec_file_path provides requires {dependency_p ""} {comment ""}} {
     
     Returns a datastructure that maintains information about a package.