# HG changeset patch
# User Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>
# Date 1266842151 0
# Node ID 1003898209ac7dd02c6d159c81d9b3a3ef3e6cf4
# Parent  bd6260d6f005a044b9574f8835506167c9963765
CA-38136: As the changes do not go in the beta, let VM.create_template in here, but make the call deprecated.

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>

diff -r bd6260d6f005 -r 1003898209ac ocaml/idl/datamodel.ml
--- a/ocaml/idl/datamodel.ml	Mon Feb 22 12:35:51 2010 +0000
+++ b/ocaml/idl/datamodel.ml	Mon Feb 22 12:35:51 2010 +0000
@@ -1258,6 +1258,21 @@
   ~errs:[Api_errors.vm_bad_power_state; Api_errors.sr_full; Api_errors.operation_not_allowed;
 		Api_errors.vm_checkpoint_suspend_failed; Api_errors.vm_checkpoint_resume_failed]
   ~allowed_roles:_R_VM_POWER_ADMIN
+  ()
+
+let vm_create_template = call
+  ~name:"create_template"
+  ~hide_from_docs:true
+  ~internal_deprecated_since:rel_midnight_ride
+  ~in_product_since:rel_midnight_ride
+  ~doc:"Deprecated: use VM.clone or VM.copy instead."
+  ~result:(Ref _vm, "")
+  ~params:[
+	    Ref _vm, "vm", "";
+	    String, "new_name", ""
+	  ]
+  ~errs:[]
+  ~allowed_roles:_R_VM_ADMIN
   ()
 
 (* VM.Provision -- causes the template's disks to be instantiated *)