|
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 |
} |