# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1272301358 -3600
# Node ID e35090f9c6f46ad0bb16e2fa8fcaa8acb95c5050
# Parent  b0d21e08987fac6769b7c4b1d6bcd165eb228d8d
CA-40763: allow the CLI to change the name-description of Hosts.

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r b0d21e08987f -r e35090f9c6f4 ocaml/client_records/records.ml
--- a/ocaml/client_records/records.ml	Mon Apr 26 18:02:18 2010 +0100
+++ b/ocaml/client_records/records.ml	Mon Apr 26 18:02:38 2010 +0100
@@ -869,7 +869,7 @@
   [
     make_field ~name:"uuid"                ~get:(fun () -> (x ()).API.host_uuid) ();
     make_field ~name:"name-label"          ~get:(fun () -> (x ()).API.host_name_label) ~set:(fun s -> Client.Host.set_name_label rpc session_id host s) ();
-    make_field ~name:"name-description"    ~get:(fun () -> (x ()).API.host_name_description) ();
+    make_field ~name:"name-description"    ~get:(fun () -> (x ()).API.host_name_description) ~set:(fun s -> Client.Host.set_name_description rpc session_id host s) ();
     make_field ~name:"allowed-operations"
       ~get:(fun () -> String.concat "; " (List.map Record_util.host_operation_to_string (x ()).API.host_allowed_operations)) 
       ~get_set:(fun () -> List.map Record_util.host_operation_to_string (x ()).API.host_allowed_operations) ();