--- parser3/src/classes/hash.C	2002/08/01 11:26:43	1.41
+++ parser3/src/classes/hash.C	2002/08/13 13:02:39	1.44
@@ -5,7 +5,7 @@
 	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
 */
 
-static const char* IDENT_HASH_C="$Id: hash.C,v 1.41 2002/08/01 11:26:43 paf Exp $";
+static const char* IDENT_HASH_C="$Date: 2002/08/13 13:02:39 $";
 
 #include "classes.h"
 #include "pa_request.h"
@@ -194,7 +194,7 @@ static void _sql(Request& r, const Strin
 	ulong offset=0;
 	if(params->size()>1) {
 		Value& voptions=params->as_no_junction(1, "options must be hash, not code");
-		if(voptions.is_defined())
+		if(!voptions.is_string())
 			if(Hash *options=voptions.get_hash(&method_name)) {
 				if(Value *vlimit=(Value *)options->get(*sql_limit_name))
 					limit=(ulong)r.process_to_value(*vlimit).as_double();
@@ -271,8 +271,8 @@ static void one_foreach_cycle(const Hash
 	Foreach_info& i=*static_cast<Foreach_info *>(info);
 
 	i.vkey->set_string(akey);
-	i.r->root->put_element(*i.key_var_name, i.vkey);
-	i.r->root->put_element(*i.value_var_name, static_cast<Value *>(avalue));
+	i.r->root->put_element(*i.key_var_name, i.vkey, false);
+	i.r->root->put_element(*i.value_var_name, static_cast<Value *>(avalue), false);
 
 	StringOrValue processed_body=i.r->process(*i.body_code);
 	if(i.delim_maybe_code) { // delimiter set?