Index: openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl	20 Apr 2001 20:51:13 -0000	1.1
+++ openacs-4/packages/ecommerce/tcl/ecommerce-utilities-procs.tcl	18 Jul 2001 18:19:01 -0000	1.2
@@ -602,16 +602,15 @@
     return "Unknown"
 }
 
-# returns a if a>=b or b if b>a
-proc ec_max { a b } {
+ad_proc ec_max { a b } { returns a if a>=b or b if b>a } {
     if { $a >= $b } {
 	return $a
     } else {
 	return $b
     }
 }
 
-proc ec_min { a b } {
+ad_proc ec_min { a b } { returns b if a>=b or b if b>a } {
     if { $a >= $b } {
 	return $b
     } else {
@@ -665,7 +664,7 @@
 }
 
 
-proc ecGetUserAgentHeader {} {
+ad_proc ecGetUserAgentHeader {} { gets user agent header } {
     set header [ns_conn headers]
 
     # note that this MUST be case-insensitive search (iget)