From 9e0dec6f06b4b7e3027c211b01f6b0e4c1cf13bb Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Fri, 27 Aug 2021 16:56:08 +0200 Subject: [PATCH] Bug 28912: Prevent Pseudonymization to be set if bcrypt_settings not set If Pseudonymization is set but the bcrypt_settings config used by the feature is not set, then there is an ugly 500 on checking out. bad bcrypt settings at /kohadevbox/koha/Koha/PseudonymizedTransaction.pm line 116. However it's pretty hard to handle correctly this exception (and that's why it hasn't be done initially). However we could prevent the pref to be turned on if the config entry is not present. Test plan: Remove the bcrypt_settings from the config Try to turn the syspref on Add the config Try to turn the syspref on/off --- admin/preferences.pl | 9 ++++++++- .../prog/en/modules/admin/preferences.tt | 13 ++++++++++++- 2 files changed, 20 insertions(+), 2 deletions(-) diff --git a/admin/preferences.pl b/admin/preferences.pl index bbb41d75074..a755b31bb47 100755 --- a/admin/preferences.pl +++ b/admin/preferences.pl @@ -179,6 +179,7 @@ sub TransformPrefsToHTML { foreach my $line ( @{ $tab->{ $group } } ) { my @chunks; my @names; + my @warnings; foreach my $piece ( @$line ) { if ( ref ( $piece ) eq 'HASH' ) { @@ -197,6 +198,10 @@ sub TransformPrefsToHTML { # No highlighting of inputs yet, but would be useful $chunk->{'highlighted'} = 1 if ( $searchfield && $name =~ /^$searchfield$/i ); + if ( $name eq 'Pseudonymization' && ! C4::Context->config('bcrypt_settings')) { + push @warnings, 'bcrypt_config_not_set'; + $chunk->{disabled} = 1 unless $value; # Let disable if enabled + } push @chunks, $chunk; my $name_entry = { name => $name }; @@ -208,6 +213,7 @@ sub TransformPrefsToHTML { } } $name_entry->{'overridden'} = 1 if ( any { $name eq $_ } @override_syspref_names ); + push @names, $name_entry; } else { push @chunks, $piece; @@ -225,10 +231,11 @@ sub TransformPrefsToHTML { push @chunks, { type_text => 1, contents => $piece }; } } - push @lines, { CHUNKS => \@chunks, NAMES => \@names, is_group_title => 0 }; + push @lines, { CHUNKS => \@chunks, NAMES => \@names, WARNINGS => \@warnings, is_group_title => 0 }; } } + use Data::Printer colored => 1; warn p @lines; return $title, \@lines; } diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences.tt index 33a9d5a69ca..a2582ccf00b 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences.tt @@ -114,7 +114,8 @@ [% IF ( CHUNK.dateinput ) %][% INCLUDE 'date-format.inc' %][% END %] [% END %] [% ELSIF ( CHUNK.type_select ) %] - [% FOREACH CHOICE IN CHUNK.CHOICES.sort('value') %] [% IF ( CHOICE.selected ) %]