# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1282322886 -3600
# Node ID 83c6ee451c6ee85f4255f470d5f89f9a0fa8c39a
# Parent  a9dd0a13fd1329bd654e61ec62101352b2c15b63
CP-1801: modify VM import/export to wipe the policy pointer field information

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

diff -r a9dd0a13fd13 -r 83c6ee451c6e ocaml/xapi/export.ml
--- a/ocaml/xapi/export.ml
+++ b/ocaml/xapi/export.ml
@@ -170,6 +170,7 @@
 		API.vM_consoles = [];
 		API.vM_metrics = Ref.null;
 		API.vM_guest_metrics = lookup table (Ref.string_of vm.API.vM_guest_metrics);
+		API.vM_protection_policy = Ref.null;
 		API.vM_bios_strings = vm.API.vM_bios_strings } in
   { cls = Datamodel._vm; 
     id = Ref.string_of (lookup table (Ref.string_of self)); 
diff -r a9dd0a13fd13 -r 83c6ee451c6e ocaml/xapi/import.ml
--- a/ocaml/xapi/import.ml
+++ b/ocaml/xapi/import.ml
@@ -192,6 +192,7 @@
 	let vm_record = {vm_record with API.
 		vM_memory_overhead = Memory_check.vm_compute_memory_overhead vm_record
 	} in
+	let vm_record = {vm_record with API.vM_protection_policy = Ref.null} in
 
   let vm = log_reraise
     ("failed to create VM with name-label " ^ vm_record.API.vM_name_label)