Lines 40-46
pod2usage("branchcode is mandatory") unless $branchcode;
Link Here
|
40 |
pod2usage("categorycode is mandatory") unless $categorycode; |
40 |
pod2usage("categorycode is mandatory") unless $categorycode; |
41 |
pod2usage("cardnumber is mandatory") unless $cardnumber; |
41 |
pod2usage("cardnumber is mandatory") unless $cardnumber; |
42 |
|
42 |
|
43 |
Koha::Patron->new({ |
43 |
my $patron = Koha::Patron->new({ |
44 |
surname => $surname, |
44 |
surname => $surname, |
45 |
userid => $userid, |
45 |
userid => $userid, |
46 |
cardnumber => $cardnumber, |
46 |
cardnumber => $cardnumber, |
Lines 50-55
Koha::Patron->new({
Link Here
|
50 |
flags => 1, |
50 |
flags => 1, |
51 |
})->store; |
51 |
})->store; |
52 |
|
52 |
|
|
|
53 |
my $digest = Koha::AuthUtils::hash_password($password); |
54 |
$patron->update({password => $digest,}); |
55 |
|
53 |
=head1 NAME |
56 |
=head1 NAME |
54 |
|
57 |
|
55 |
create_superlibrarian.pl - create a user in Koha with superlibrarian permissions |
58 |
create_superlibrarian.pl - create a user in Koha with superlibrarian permissions |
56 |
- |
|
|