Bug 7180: Add UT for C4::Budgets::GetBudgetByCode

[srvgit] / C4 / Budgets.pm

diff --git a/C4/Budgets.pm b/C4/Budgets.pm
index ea371c8..882172f 100644 (file)
--- a/C4/Budgets.pm
+++ b/C4/Budgets.pm
@@ -713,6 +713,8 @@ sub GetBudgetByCode {
         SELECT *
         FROM aqbudgets
         WHERE budget_code = ?
+        ORDER BY budget_id DESC
+        LIMIT 1
     };
     my $sth = $dbh->prepare( $query );
     $sth->execute( $budget_code );