Lines 70-75
sub set_preference {
Link Here
|
70 |
C4::Service->return_success( $response ); |
70 |
C4::Service->return_success( $response ); |
71 |
} |
71 |
} |
72 |
|
72 |
|
|
|
73 |
=head2 get_preference |
74 |
|
75 |
=over 4 |
76 |
|
77 |
=item url path |
78 |
|
79 |
GET /svc/config/systempreferences/$preference |
80 |
|
81 |
=item url query |
82 |
|
83 |
preference=$pref_name |
84 |
|
85 |
=back |
86 |
|
87 |
Used to get a single system preference. |
88 |
|
89 |
=cut |
90 |
|
91 |
sub get_preference { |
92 |
my $preference = scalar $query->param('pref'); |
93 |
|
94 |
my $value = C4::Context->preference( $preference ); |
95 |
$response->param( value => $value ); |
96 |
|
97 |
C4::Service->return_success( $response ); |
98 |
} |
99 |
|
100 |
|
101 |
|
73 |
=head2 set_preferences |
102 |
=head2 set_preferences |
74 |
|
103 |
|
75 |
=over 4 |
104 |
=over 4 |
Lines 109-112
sub set_preferences {
Link Here
|
109 |
C4::Service->dispatch( |
138 |
C4::Service->dispatch( |
110 |
[ 'POST /([A-Za-z0-9_-]+)', [ 'value' ], \&set_preference ], |
139 |
[ 'POST /([A-Za-z0-9_-]+)', [ 'value' ], \&set_preference ], |
111 |
[ 'POST /', [], \&set_preferences ], |
140 |
[ 'POST /', [], \&set_preferences ], |
|
|
141 |
[ 'GET /', [ 'pref' ], \&get_preference], |
112 |
); |
142 |
); |
113 |
- |
|
|