View | Details | Raw Unified | Return to bug 21087
Collapse All | Expand All

(-)a/misc/devel/create_superlibrarian.pl (-2 / +4 lines)
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
- 

Return to bug 21087