CUYAHOGA - Fetch budget id from code and usewhen creating orders

So the previous patch was wrong because we were passing the 'code' forward
but an 'id' is needed for orders

This patch makes sure we fetch the budget and get the id from the code in the marc
when we aren't using MarcItemFieldsToOrder but only MarcFields to order (i.e. Cuyahoga setup)

Koha/MarcOrder.pm

@@ -979,7 +979,7 @@ sub parse_input_into_order_line_fields {
         basket_id           => $basket_id,
         budget_id           => $budget_id,
         c_quantity          => $fields->{c_quantity},
-        c_budget_id         => $fields->{c_budget_code},
+        c_budget_id         => $fields->{c_budget_id},
         c_discount          => $fields->{c_discount},
         c_sort1             => $fields->{c_sort1},
         c_sort2             => $fields->{c_sort2},
@@ -1270,6 +1270,9 @@ sub _create_item_fields_from_syspref {
         }
     }
 
+    my $order_budget = GetBudgetByCode($marc_fields_to_order->{budget_code});
+    my $order_budget_id = $order_budget ? $order_budget->{budget_id} : $budget_id;
+
     my $item_fields = {
         quantity          => scalar(@homebranches),
         homebranches      => \@homebranches,
@@ -1288,6 +1291,7 @@ sub _create_item_fields_from_syspref {
         itemcallnumbers   => \@itemcallnumbers,
         c_quantity        => $marc_fields_to_order->{quantity},
         c_budget_code     => $marc_fields_to_order->{budget_code},
+        c_budget_id       => $order_budget_id,
         c_price           => $marc_fields_to_order->{price},
         c_discount        => $marc_fields_to_order->{discount},
         c_sort1           => $marc_fields_to_order->{sort1},