Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	22 Jan 2003 15:25:07 -0000	1.27
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	3 Feb 2003 13:56:42 -0000	1.28
@@ -1554,6 +1554,19 @@
     return [expr { [info exists var] && ![empty_string_p $var] }] 
 } 
 
+ad_proc -public exists_and_equal { varname value } {
+    Returns 1 if the variable name exists in the caller's envirnoment
+    and is equal to the given value.
+
+    @see exists_and_not_null
+
+    @author Peter Marklund    
+} {
+    upvar 1 $varname var
+    
+    return [expr { [info exists var] && [string equal $var $value] } ]
+}
+
 ad_proc -public util_httpget {
     url {headers ""} {timeout 30} {depth 0}
 } {