diff --git a/misc/devel/create_superlibrarian.pl b/misc/devel/create_superlibrarian.pl index 89b738783f..938d34ea13 100755 --- a/misc/devel/create_superlibrarian.pl +++ b/misc/devel/create_superlibrarian.pl @@ -40,7 +40,7 @@ pod2usage("branchcode is mandatory") unless $branchcode; pod2usage("categorycode is mandatory") unless $categorycode; pod2usage("cardnumber is mandatory") unless $cardnumber; -Koha::Patron->new({ +my $patron = Koha::Patron->new({ surname => $surname, userid => $userid, cardnumber => $cardnumber, @@ -50,6 +50,9 @@ Koha::Patron->new({ flags => 1, })->store; +my $digest = Koha::AuthUtils::hash_password($password); +$patron->update({password => $digest,}); + =head1 NAME create_superlibrarian.pl - create a user in Koha with superlibrarian permissions