# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1258120865 0
# Node ID c2e75d891d3dd4542066384cf07331bf727500ca
# Parent  45ecc8475cf84872bda0571d2d451a6b8a099a2c
CA-34034: add default_args to audit params

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

diff -r 45ecc8475cf8 -r c2e75d891d3d ocaml/idl/ocaml_backend/gen_server.ml
--- a/ocaml/idl/ocaml_backend/gen_server.ml	Thu Nov 12 18:49:52 2009 +0000
+++ b/ocaml/idl/ocaml_backend/gen_server.ml	Fri Nov 13 14:01:05 2009 +0000
@@ -157,7 +157,7 @@
   in
   let rbac_check_begin = if has_session_arg
     then [
-			"let arg_names = "^(List.fold_right (fun arg args -> "\""^arg^"\"::"^args) string_args "[]")^" in";
+			"let arg_names = "^(List.fold_right (fun arg args -> "\""^arg^"\"::"^args) string_args (if is_non_constructor_with_defaults then "\"default_args\"::[]" else "[]"))^" in";
 			"Rbac.check session_id __call ~args:(arg_names,__params) ~__context ~fn:(fun ()-> (*RBAC-BEGIN*)"]
     else []
   in