Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 18 lines (13 sloc) 323 Bytes
#!/usr/bin/env perl
use warnings;
use strict;
use Koha;
use C4::Context;
use JSON;
my $prefs = C4::Context->dbh->selectall_hashref(
'SELECT variable, value, options, explanation, type FROM systempreferences',
for (values %$prefs) {
delete $_->{variable};
print to_json($prefs, {pretty=>1} );
Something went wrong with that request. Please try again.