# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1259669761 0
# Node ID 994723beb3142a90e7247ed5c4cd947bf6e77a83
# Parent  e6185002376e4dc22148b85b4e6c32d498fe67fd
CA-35368: add support for string-value keys

Signed-off-by: Marcus Granado <marcus.granado@xxxxxxxxxxxxx>

diff -r e6185002376e -r 994723beb314 ocaml/idl/ocaml_backend/rbac.ml
--- a/ocaml/idl/ocaml_backend/rbac.ml	Mon Nov 30 16:47:14 2009 +0000
+++ b/ocaml/idl/ocaml_backend/rbac.ml	Tue Dec 01 12:16:01 2009 +0000
@@ -139,7 +139,9 @@
 					(get_permission_name_of_keys ks vs)
 				else (* found "key" in args *)
 					match v with
-					| Xml.Element("value",_,(Xml.PCData key_name_in_args)::[]) ->
+					| Xml.Element("value",_,(Xml.PCData key_name_in_args)::[]) 
+					| Xml.Element("value",_,(Xml.Element("string",_,
+						(Xml.PCData key_name_in_args)::[]))::[]) ->
 					begin
 						(*debug "key_name_in_args=%s, keys=[%s]" key_name_in_args ((List.fold_left (fun ss s->ss^s^",") "" keys)) ;*)
 						try