|
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 |
- |
|
|