|
Lines 64-73
Used to set a single system preference.
Link Here
|
| 64 |
sub set_preference { |
64 |
sub set_preference { |
| 65 |
my ( $preference ) = @_; |
65 |
my ( $preference ) = @_; |
| 66 |
|
66 |
|
| 67 |
unless ( C4::Context->config('demo') ) { |
67 |
my $value = join( ',', $query->param( 'value' ) ); |
| 68 |
my $value = join( ',', $query->param( 'value' ) ); |
68 |
C4::Context->set_preference( $preference, $value ); |
| 69 |
C4::Context->set_preference( $preference, $value ); |
|
|
| 70 |
} |
| 71 |
|
69 |
|
| 72 |
C4::Service->return_success( $response ); |
70 |
C4::Service->return_success( $response ); |
| 73 |
} |
71 |
} |
|
Lines 95-110
pref_virtualshelves=0
Link Here
|
| 95 |
=cut |
93 |
=cut |
| 96 |
|
94 |
|
| 97 |
sub set_preferences { |
95 |
sub set_preferences { |
| 98 |
unless ( C4::Context->config( 'demo' ) ) { |
96 |
foreach my $param ( $query->param() ) { |
| 99 |
foreach my $param ( $query->param() ) { |
97 |
my ( $pref ) = ( $param =~ /pref_(.*)/ ); |
| 100 |
my ( $pref ) = ( $param =~ /pref_(.*)/ ); |
|
|
| 101 |
|
98 |
|
| 102 |
next if ( !defined( $pref ) ); |
99 |
next if ( !defined( $pref ) ); |
| 103 |
|
100 |
|
| 104 |
my $value = join( ',', $query->multi_param( $param ) ); |
101 |
my $value = join( ',', $query->multi_param( $param ) ); |
| 105 |
|
102 |
|
| 106 |
C4::Context->set_preference( $pref, $value ); |
103 |
C4::Context->set_preference( $pref, $value ); |
| 107 |
} |
|
|
| 108 |
} |
104 |
} |
| 109 |
|
105 |
|
| 110 |
C4::Service->return_success( $response ); |
106 |
C4::Service->return_success( $response ); |
| 111 |
- |
|
|