Lines 20-25
use Modern::Perl;
Link Here
|
20 |
use Mojo::Base 'Mojolicious::Controller'; |
20 |
use Mojo::Base 'Mojolicious::Controller'; |
21 |
|
21 |
|
22 |
use Koha::Acquisition::Booksellers; |
22 |
use Koha::Acquisition::Booksellers; |
|
|
23 |
use Koha::Acquisition::Currencies; |
24 |
|
25 |
use C4::Context; |
23 |
|
26 |
|
24 |
use Try::Tiny qw( catch try ); |
27 |
use Try::Tiny qw( catch try ); |
25 |
|
28 |
|
Lines 182-191
sub config {
Link Here
|
182 |
my $userflags = C4::Auth::getuserflags( $patron->flags, $patron->id ); |
185 |
my $userflags = C4::Auth::getuserflags( $patron->flags, $patron->id ); |
183 |
my $permissions = Koha::Auth::Permissions->get_authz_from_flags( { flags => $userflags } ); |
186 |
my $permissions = Koha::Auth::Permissions->get_authz_from_flags( { flags => $userflags } ); |
184 |
|
187 |
|
|
|
188 |
my @gst_values = map { option => $_ + 0.0 }, split( '\|', C4::Context->preference("TaxRates") ); |
189 |
|
185 |
return $c->render( |
190 |
return $c->render( |
186 |
status => 200, |
191 |
status => 200, |
187 |
openapi => { |
192 |
openapi => { |
188 |
permissions => $permissions, |
193 |
permissions => $permissions, |
|
|
194 |
currencies => Koha::Acquisition::Currencies->search->unblessed, |
195 |
gst_values => \@gst_values, |
196 |
edifact => C4::Context->preference('EDIFACT'), |
197 |
marc_orders => C4::Context->preference('MarcOrderingAutomation'), |
189 |
}, |
198 |
}, |
190 |
); |
199 |
); |
191 |
} |
200 |
} |