From 2d5529915b55acf0563e85e5ba68a6bbff79d5f7 Mon Sep 17 00:00:00 2001
From: Jeremy Breuillard <jeremy.breuillard@biblibre.com>
Date: Wed, 24 Nov 2021 10:45:46 +0100
Subject: [PATCH] Bug 27550: "Duplicate budget" does not keep users associated
 with that budget

When a budget is duplicated, Owner is copied but not Users

Test plan :
Home > Administration > Budgets
1)Create a budget to allow (active or inactive)
2)Give it some funds by filling up the form, especially Owner and
User(s)
3)Submit then go back to the Budgets dashboard
4)Duplicate the Budget and click on its name
5)Edit it and notice that User(s) is empty
6)Apply the patch
7)Repeat from 1) to 5)

Signed-off-by: Samu Heiskanen <samu.heiskanen@hypernova.fi>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
(cherry picked from commit ed97960cd7f8105eb5f913770089218cf7dd559d)

Signed-off-by: Lucas Gass <lucas@bywatersolutions.com>
---
 C4/Budgets.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index 0837edf88c..aa75c88f3c 100644
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -1286,6 +1286,8 @@ sub CloneBudgetHierarchy {
                 budget_period_id => $new_budget_period_id
             }
         );
+        my @borrowernumbers = GetBudgetUsers($budget->{budget_id});
+        ModBudgetUsers($new_budget_id, @borrowernumbers);
         CloneBudgetHierarchy(
             {
                 budgets              => $budgets,
-- 
2.39.5