# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1265308953 0
# Node ID 25ccf85b0d062d9f0c9edf5274b0c7e3b6f7ab02
# Parent  53f2cc830854588348178e30d544bda99acdfd84
A rebase error broke 688:ad39bb223791: this should fix it.

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

diff -r 53f2cc830854 -r 25ccf85b0d06 ocaml/license/restrictions.ml
--- a/ocaml/license/restrictions.ml	Thu Feb 04 18:27:52 2010 +0000
+++ b/ocaml/license/restrictions.ml	Thu Feb 04 18:42:33 2010 +0000
@@ -267,10 +267,12 @@
        let hosts = List.map (fun (_, host_r) -> host_r.API.host_license_params) (Db.Host.get_all_records ~__context) in
        let new_restrictions = pool_restrictions_of_list (List.map of_assoc_list hosts) in
        if new_restrictions <> !pool_restrictions then begin
-	 info "Old pool restrictions: %s" (to_compact_string !pool_restrictions);
-	 info "New pool restrictions: %s" (to_compact_string new_restrictions);
-	 pool_restrictions := new_restrictions
-       end
+		 info "Old pool restrictions: %s" (to_compact_string !pool_restrictions);
+		 info "New pool restrictions: %s" (to_compact_string new_restrictions);
+		 pool_restrictions := new_restrictions
+       end;
+       let pool = List.hd (Db.Pool.get_all ~__context) in
+       Db.Pool.set_restrictions ~__context ~self:pool ~value:(to_assoc_list new_restrictions)
     )
 
 let license_ok_for_wlb ~__context =
@@ -285,5 +287,5 @@
 let ok_for_checkpoint () =
 	(get_pool()).enable_checkpoint
 
-let license_ok_for_dmc ~__context = 
+let license_ok_for_vswitch_controller ~__context = 
   (get_pool()).enable_vswitch_controller