- Generating POs nearly works - still problems when saving the newly

  generated PO

tcl/intranet-defs-procs.tcl

@@ -20,6 +20,13 @@ ad_library {
     @author frank.bergmann@project-open.com
 }
 
+# ------------------------------------------------------------------
+# Constant Functions
+# ------------------------------------------------------------------
+
+ad_proc -public im_uom_hour {} { return 320 }
+ad_proc -public im_uom_day {} { return 321 }
+ad_proc -public im_uom_unit {} { return 322 }
 
 
 ad_proc -public im_package_core_id {} {
@@ -36,6 +43,11 @@ ad_proc -private im_package_core_id_helper {} {
 }
 
 
+
+# ------------------------------------------------------------------
+# 
+# ------------------------------------------------------------------
+
 ad_proc -public im_opt_val { var_name } {
     Acts like a "$" to evaluate a variable, but
     returns "" if the variable is not defined,
@@ -163,6 +175,7 @@ ad_proc im_name_paren_email {user_id} {
 
 
 # ------------------------------------------------------------------
+#
 # ------------------------------------------------------------------
 
 # Find out the user name