Jonathan Druart
9820f9dfbd
At the moment, the sysprefs are only cache in the thread memory executing the processus When using Plack, that means we need to clear the syspref cache on each page. To avoid that, we can use Koha::Cache to cache the sysprefs correctly. A big part of the authorship of this patch goes to Robin Sheat. Test plan: 1/ Add/Update/Delete local use prefs 2/ Update pref values and confirm that the changes are correctly taken into account Signed-off-by: Chris <chrisc@catalyst.net.nz> Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Tested with plack with syspref cache enabled, there is some time between setting the syspref and applying it, but it takes just one reload of page, it shouldn't be problem, should it? Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar> Signed-off-by: Jacek Ablewicz <abl@biblos.pk.edu.pl> Tested with CGI and CGI + memcache; some small issues still remain, but it would be better to deal with them in separate bug reports if necessary Signed-off-by: Brendan Gallagher brendan@bywatersolutions.com
109 lines
2.4 KiB
Perl
Executable file
109 lines
2.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2009 Jesse Weaver
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
#
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use C4::Context;
|
|
use C4::Service;
|
|
use C4::Log;
|
|
|
|
=head1 NAME
|
|
|
|
svc/config/systempreferences - Web service for setting system preferences
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
POST /svc/config/systempreferences/
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This service is used to set system preferences, either one at a time or in
|
|
batches.
|
|
|
|
=head1 METHODS
|
|
|
|
=cut
|
|
|
|
our ( $query, $response ) = C4::Service->init( parameters => 1 );
|
|
|
|
=head2 set_preference
|
|
|
|
=over 4
|
|
|
|
POST /svc/config/systempreferences/$preference
|
|
|
|
value=$value
|
|
|
|
=back
|
|
|
|
Used to set a single system preference.
|
|
|
|
=cut
|
|
|
|
sub set_preference {
|
|
my ( $preference ) = @_;
|
|
|
|
unless ( C4::Context->config('demo') ) {
|
|
my $value = join( ',', $query->param( 'value' ) );
|
|
C4::Context->set_preference( $preference, $value );
|
|
}
|
|
|
|
C4::Service->return_success( $response );
|
|
}
|
|
|
|
=head2 set_preferences
|
|
|
|
=over 4
|
|
|
|
POST /svc/config/systempreferences/
|
|
|
|
pref_$pref1=$value1&pref_$pref2=$value2
|
|
|
|
=back
|
|
|
|
Used to set several system preferences at once. Each preference you want to set
|
|
should be sent prefixed with pref. If you wanted to turn off the
|
|
virtualshelves syspref, for instance, you would POST the following:
|
|
|
|
pref_virtualshelves=0
|
|
|
|
=cut
|
|
|
|
sub set_preferences {
|
|
unless ( C4::Context->config( 'demo' ) ) {
|
|
foreach my $param ( $query->param() ) {
|
|
my ( $pref ) = ( $param =~ /pref_(.*)/ );
|
|
|
|
next if ( !defined( $pref ) );
|
|
|
|
my $value = join( ',', $query->param( $param ) );
|
|
|
|
C4::Context->set_preference( $pref, $value );
|
|
}
|
|
}
|
|
|
|
C4::Service->return_success( $response );
|
|
}
|
|
|
|
C4::Service->dispatch(
|
|
[ 'POST /([A-Za-z0-9_-]+)', [ 'value' ], \&set_preference ],
|
|
[ 'POST /', [], \&set_preferences ],
|
|
);
|