ts-hosts-allocate-Executive: Add the requesting Job to the booking

Signed-off-by: Ian Campbell <ian.campbell@citrix.com>
Acked-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/ts-hosts-allocate-Executive b/ts-hosts-allocate-Executive
index 7a9411d20af3b28f7487e24fb3ea4c9ce8afde68..6583191042f4219ef4b71bcd7638a65a2e963d00 100755 (executable)
--- a/ts-hosts-allocate-Executive
+++ b/ts-hosts-allocate-Executive
@@ -669,6 +669,7 @@ sub compute_booking_list () {
                Shares => $sel->{SharedMaxTasks},
            }) : ()),
        };
+       $book->{Job}= "$flight.$job";
        $book->{Reso}= "$sel->{restype} $sel->{resname}";
        $book->{Xinfo}= $hid->{Ident};
        $book->{Start}= $best->{Start},