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