# HG changeset patch
# User  Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>
# Date 1268390595 0
# Node ID 6b915eab0b4cebed6bce3be9c8b40bfe56506b42
# Parent  8baedbf2d1795f4f62176af93c9272e6802ca5d2
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 8baedbf2d179 -r 6b915eab0b4c ocaml/idl/datamodel.ml
--- a/ocaml/idl/datamodel.ml	Fri Mar 12 10:43:14 2010 +0000
+++ b/ocaml/idl/datamodel.ml	Fri Mar 12 10:43:15 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 *)