|
Lines 179-184
sub TransformPrefsToHTML {
Link Here
|
| 179 |
foreach my $line ( @{ $tab->{ $group } } ) { |
179 |
foreach my $line ( @{ $tab->{ $group } } ) { |
| 180 |
my @chunks; |
180 |
my @chunks; |
| 181 |
my @names; |
181 |
my @names; |
|
|
182 |
my @warnings; |
| 182 |
|
183 |
|
| 183 |
foreach my $piece ( @$line ) { |
184 |
foreach my $piece ( @$line ) { |
| 184 |
if ( ref ( $piece ) eq 'HASH' ) { |
185 |
if ( ref ( $piece ) eq 'HASH' ) { |
|
Lines 197-202
sub TransformPrefsToHTML {
Link Here
|
| 197 |
# No highlighting of inputs yet, but would be useful |
198 |
# No highlighting of inputs yet, but would be useful |
| 198 |
$chunk->{'highlighted'} = 1 if ( $searchfield && $name =~ /^$searchfield$/i ); |
199 |
$chunk->{'highlighted'} = 1 if ( $searchfield && $name =~ /^$searchfield$/i ); |
| 199 |
|
200 |
|
|
|
201 |
if ( $name eq 'Pseudonymization' && ! C4::Context->config('bcrypt_settings')) { |
| 202 |
push @warnings, 'bcrypt_config_not_set'; |
| 203 |
$chunk->{disabled} = 1 unless $value; # Let disable if enabled |
| 204 |
} |
| 200 |
push @chunks, $chunk; |
205 |
push @chunks, $chunk; |
| 201 |
|
206 |
|
| 202 |
my $name_entry = { name => $name }; |
207 |
my $name_entry = { name => $name }; |
|
Lines 208-213
sub TransformPrefsToHTML {
Link Here
|
| 208 |
} |
213 |
} |
| 209 |
} |
214 |
} |
| 210 |
$name_entry->{'overridden'} = 1 if ( any { $name eq $_ } @override_syspref_names ); |
215 |
$name_entry->{'overridden'} = 1 if ( any { $name eq $_ } @override_syspref_names ); |
|
|
216 |
|
| 211 |
push @names, $name_entry; |
217 |
push @names, $name_entry; |
| 212 |
} else { |
218 |
} else { |
| 213 |
push @chunks, $piece; |
219 |
push @chunks, $piece; |
|
Lines 225-231
sub TransformPrefsToHTML {
Link Here
|
| 225 |
push @chunks, { type_text => 1, contents => $piece }; |
231 |
push @chunks, { type_text => 1, contents => $piece }; |
| 226 |
} |
232 |
} |
| 227 |
} |
233 |
} |
| 228 |
push @lines, { CHUNKS => \@chunks, NAMES => \@names, is_group_title => 0 }; |
234 |
push @lines, { CHUNKS => \@chunks, NAMES => \@names, WARNINGS => \@warnings, is_group_title => 0 }; |
| 229 |
} |
235 |
} |
| 230 |
} |
236 |
} |
| 231 |
|
237 |
|