Bug 19661: Use Koha::Acquisition::Funds instead of C4::Budgets

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Nick Clemens <nick@bywatersolutions.com>

diff --git a/Koha/REST/V1/Acquisitions/Funds.pm b/Koha/REST/V1/Acquisitions/Funds.pm
index a36d3c6..2ba300d 100644 (file)
--- a/Koha/REST/V1/Acquisitions/Funds.pm
+++ b/Koha/REST/V1/Acquisitions/Funds.pm
@@ -19,7 +19,7 @@ use Modern::Perl;
 
 use Mojo::Base 'Mojolicious::Controller';
 
-use C4::Budgets;
+use Koha::Acquisition::Funds;
 use JSON qw(to_json);
 
 use Try::Tiny;
@@ -50,10 +50,10 @@ sub list_funds {
     }
 
     return try {
-        my $funds = GetBudgets($filter);
-        my @fundsArray = map { _to_api($_) } @$funds;
+        my @funds = Koha::Acquisition::Funds->search($filter);
+        @funds = map { _to_api($_->TO_JSON) } @funds;
         return $c->render( status  => 200,
-                           openapi =>  \@fundsArray);
+                           openapi =>  \@funds);
     }
     catch {
         if ( $_->isa('DBIx::Class::Exception') ) {