Bug 21087: Fix create_superlibrarian.pl script

Signed-off-by: John Doe <you@example.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

diff --git a/misc/devel/create_superlibrarian.pl b/misc/devel/create_superlibrarian.pl
index 89b7387..938d34e 100755 (executable)
--- 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