@@ -, +, @@ Dumper) --- Koha/Patrons/Import.pm | 32 +++++++++++----------- .../prog/en/modules/tools/import_borrowers.tt | 2 +- t/db_dependent/Koha/Patrons/Import.t | 1 - 3 files changed, 17 insertions(+), 18 deletions(-) --- a/Koha/Patrons/Import.pm +++ a/Koha/Patrons/Import.pm @@ -294,22 +294,22 @@ sub import_patrons { try { $patron->set_password({ password => $borrower{password} }); } - catch { - if ( $_->isa('Koha::Exceptions::Password::TooShort') ) { - push @errors, { passwd_too_short => 1, borrowernumber => $borrowernumber, length => $_->{length}, min_length => $_->{min_length} }; - } - elsif ( $_->isa('Koha::Exceptions::Password::WhitespaceCharacters') ) { - push @errors, { passwd_whitespace => 1, borrowernumber => $borrowernumber } ; - } - elsif ( $_->isa('Koha::Exceptions::Password::TooWeak') ) { - push @errors, { passwd_too_weak => 1, borrowernumber => $borrowernumber } ; - } - elsif ( $_->isa('Koha::Exceptions::Password::Plugin') ) { - push @errors, { passwd_plugin_err => 1, borrowernumber => $borrowernumber } ; - } - else { - push @errors, { passwd_unknown_err => 1, borrowernumber => $borrowernumber } ; - } + catch { + if ( $_->isa('Koha::Exceptions::Password::TooShort') ) { + push @errors, { passwd_too_short => 1, borrowernumber => $borrowernumber, length => $_->{length}, min_length => $_->{min_length} }; + } + elsif ( $_->isa('Koha::Exceptions::Password::WhitespaceCharacters') ) { + push @errors, { passwd_whitespace => 1, borrowernumber => $borrowernumber } ; + } + elsif ( $_->isa('Koha::Exceptions::Password::TooWeak') ) { + push @errors, { passwd_too_weak => 1, borrowernumber => $borrowernumber } ; + } + elsif ( $_->isa('Koha::Exceptions::Password::Plugin') ) { + push @errors, { passwd_plugin_err => 1, borrowernumber => $borrowernumber } ; + } + else { + push @errors, { passwd_unknown_err => 1, borrowernumber => $borrowernumber } ; + } } } if ($extended) { --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/import_borrowers.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/import_borrowers.tt @@ -117,7 +117,7 @@ [% END %] [% IF e.passwd_too_short %]
  • - Password is too short for patron with borrowernumber [% e.borrowernumber | html %]. Minimum length is [% e.min_length %], length is [% e.length %] + Password is too short for patron with borrowernumber [% e.borrowernumber | html %]. Minimum length is [% e.min_length | html %], length is [% e.length | html %]
  • [% END %] [% IF e.passwd_whitespace %] --- a/t/db_dependent/Koha/Patrons/Import.t +++ a/t/db_dependent/Koha/Patrons/Import.t @@ -491,7 +491,6 @@ subtest 'test_import_with_password_overwrite' => sub { $ernest->store; $result = $patrons_import->import_patrons($params_4, $defaults); - warn Data::Dumper::Dumper( $result ); $ernest = Koha::Patrons->find({ userid => 'ErnestP' }); is($ernest->surname,'Worrell',"Patron is overwritten, surname changed"); is($ernest->password,$orig_pass,"Patron is imported, password is not changed for staff"); --