From 994314157ab448c8f929a6cd87def966920a9a6d Mon Sep 17 00:00:00 2001 From: Sam Lau Date: Fri, 7 Jun 2024 19:26:51 +0000 Subject: [PATCH] Bug 33462: (Follow up) Fix Perl Tidy --- Koha/Patron.pm | 7 +- admin/categories.pl | 82 ++++++++++--------- .../data/mysql/atomicupdate/bug_33462.pl | 12 ++- 3 files changed, 54 insertions(+), 47 deletions(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 8dd771fe54..fd0fbc6dfd 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -291,10 +291,11 @@ sub store { # Make a copy of the plain text password for later use $self->plain_text_password( $self->password ); - if($self->category->effective_force_password_reset_when_set_by_staff and ($self->categorycode ne C4::Context->preference("PatronSelfRegistrationDefaultCategory"))){ + if ( $self->category->effective_force_password_reset_when_set_by_staff + and ( $self->categorycode ne C4::Context->preference("PatronSelfRegistrationDefaultCategory") ) ) + { $self->password_expiration_date(dt_from_string); - } - else { + } else { $self->password_expiration_date( $self->password ? $self->category->get_password_expiry_date || undef diff --git a/admin/categories.pl b/admin/categories.pl index 8c8e7b0c1d..065a7084d4 100755 --- a/admin/categories.pl +++ b/admin/categories.pl @@ -52,8 +52,7 @@ if ( $op eq 'add_form' ) { ); if ( C4::Context->preference('EnhancedMessagingPreferences') ) { - C4::Form::MessagingPreferences::set_form_values( - { categorycode => $categorycode }, $template ); + C4::Form::MessagingPreferences::set_form_values( { categorycode => $categorycode }, $template ); } } elsif ( $op eq 'cud-add_validate' ) { @@ -83,16 +82,16 @@ elsif ( $op eq 'cud-add_validate' ) { my $can_be_guarantee = $input->param('can_be_guarantee'); my $force_password_reset_when_set_by_staff = $input->param('force_password_reset_when_set_by_staff'); - $reset_password = undef if $reset_password eq -1; - $change_password = undef if $change_password eq -1; - $min_password_length = undef unless length($min_password_length); - $require_strong_password = undef if $require_strong_password eq -1; + $reset_password = undef if $reset_password eq -1; + $change_password = undef if $change_password eq -1; + $min_password_length = undef unless length($min_password_length); + $require_strong_password = undef if $require_strong_password eq -1; $force_password_reset_when_set_by_staff = undef if $force_password_reset_when_set_by_staff eq -1; my $is_a_modif = $input->param("is_a_modif"); if ($is_a_modif) { - my $category = Koha::Patron::Categories->find( $categorycode ); + my $category = Koha::Patron::Categories->find($categorycode); $category->categorycode($categorycode); $category->description($description); $category->enrolmentperiod($enrolmentperiod); @@ -120,44 +119,45 @@ elsif ( $op eq 'cud-add_validate' ) { $category->store; $category->replace_library_limits( \@branches ); }; - if ( $@ ) { - push @messages, {type => 'error', code => 'error_on_update' }; + if ($@) { + push @messages, { type => 'error', code => 'error_on_update' }; } else { push @messages, { type => 'message', code => 'success_on_update' }; } - } - else { - my $category = Koha::Patron::Category->new({ - categorycode => $categorycode, - description => $description, - enrolmentperiod => $enrolmentperiod, - enrolmentperioddate => $enrolmentperioddate, - password_expiry_days => $password_expiry_days, - upperagelimit => $upperagelimit, - dateofbirthrequired => $dateofbirthrequired, - enrolmentfee => $enrolmentfee, - reservefee => $reservefee, - hidelostitems => $hidelostitems, - overduenoticerequired => $overduenoticerequired, - category_type => $category_type, - can_be_guarantee => $can_be_guarantee, - BlockExpiredPatronOpacActions => $BlockExpiredPatronOpacActions, - checkprevcheckout => $checkPrevCheckout, - can_place_ill_in_opac => $can_place_ill_in_opac, - default_privacy => $default_privacy, - reset_password => $reset_password, - change_password => $change_password, - exclude_from_local_holds_priority => $exclude_from_local_holds_priority, - min_password_length => $min_password_length, - require_strong_password => $require_strong_password, - force_password_reset_when_set_by_staff => $force_password_reset_when_set_by_staff, - }); + } else { + my $category = Koha::Patron::Category->new( + { + categorycode => $categorycode, + description => $description, + enrolmentperiod => $enrolmentperiod, + enrolmentperioddate => $enrolmentperioddate, + password_expiry_days => $password_expiry_days, + upperagelimit => $upperagelimit, + dateofbirthrequired => $dateofbirthrequired, + enrolmentfee => $enrolmentfee, + reservefee => $reservefee, + hidelostitems => $hidelostitems, + overduenoticerequired => $overduenoticerequired, + category_type => $category_type, + can_be_guarantee => $can_be_guarantee, + BlockExpiredPatronOpacActions => $BlockExpiredPatronOpacActions, + checkprevcheckout => $checkPrevCheckout, + can_place_ill_in_opac => $can_place_ill_in_opac, + default_privacy => $default_privacy, + reset_password => $reset_password, + change_password => $change_password, + exclude_from_local_holds_priority => $exclude_from_local_holds_priority, + min_password_length => $min_password_length, + require_strong_password => $require_strong_password, + force_password_reset_when_set_by_staff => $force_password_reset_when_set_by_staff, + } + ); eval { $category->store; $category->replace_library_limits( \@branches ); }; - if ( $@ ) { + if ($@) { push @messages, { type => 'error', code => 'error_on_insert' }; } else { push @messages, { type => 'message', code => 'success_on_insert' }; @@ -165,12 +165,14 @@ elsif ( $op eq 'cud-add_validate' ) { } if ( C4::Context->preference('EnhancedMessagingPreferences') ) { - C4::Form::MessagingPreferences::handle_form_action( $input, - { categorycode => scalar $input->param('categorycode') }, $template ); + C4::Form::MessagingPreferences::handle_form_action( + $input, + { categorycode => scalar $input->param('categorycode') }, $template + ); } $searchfield = q||; - $op = 'list'; + $op = 'list'; } elsif ( $op eq 'cud-delete_confirm' ) { diff --git a/installer/data/mysql/atomicupdate/bug_33462.pl b/installer/data/mysql/atomicupdate/bug_33462.pl index d74effdfec..9751e3f28f 100755 --- a/installer/data/mysql/atomicupdate/bug_33462.pl +++ b/installer/data/mysql/atomicupdate/bug_33462.pl @@ -7,14 +7,18 @@ return { up => sub { my ($args) = @_; my ( $dbh, $out ) = @$args{qw(dbh out)}; - $dbh->do(q{ + $dbh->do( + q{ INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES ('ForcePasswordResetWhenSetByStaff', '0', NULL,'Force a staff created patron account to reset its password after its first OPAC login.', 'YesNo') - }); + } + ); say $out "Added new system preference 'ForcePasswordResetWhenSetByStaff'"; - if( !column_exists( 'categories', 'force_password_reset_when_set_by_staff' ) ) { - $dbh->do("ALTER TABLE categories ADD COLUMN `force_password_reset_when_set_by_staff` TINYINT(1) NULL DEFAULT NULL AFTER `require_strong_password` -- if patrons of this category are required to reset password after being created by a staff member"); + if ( !column_exists( 'categories', 'force_password_reset_when_set_by_staff' ) ) { + $dbh->do( + "ALTER TABLE categories ADD COLUMN `force_password_reset_when_set_by_staff` TINYINT(1) NULL DEFAULT NULL AFTER `require_strong_password` -- if patrons of this category are required to reset password after being created by a staff member" + ); } say $out "Added column to categories 'force_password_reset_when_set_by_staff'"; -- 2.39.2