Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 18 lines (13 sloc) 0.323 kb
72e2ead @ctfliblime Instantiate sysprefs by defaults file.
ctfliblime authored
1 #!/usr/bin/env perl
2
3 use warnings;
4 use strict;
3607caa @ctfliblime Add Koha.pm and include it universally
ctfliblime authored
5 use Koha;
72e2ead @ctfliblime Instantiate sysprefs by defaults file.
ctfliblime authored
6 use C4::Context;
7 use JSON;
8
9 my $prefs = C4::Context->dbh->selectall_hashref(
10 'SELECT variable, value, options, explanation, type FROM systempreferences',
11 'variable');
12
13 for (values %$prefs) {
14 delete $_->{variable};
15 }
16
17 print to_json($prefs, {pretty=>1} );
Something went wrong with that request. Please try again.