|
Lines 18-29
Link Here
|
| 18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
|
|
21 |
|
| 21 |
use Getopt::Long qw( GetOptions ); |
22 |
use Getopt::Long qw( GetOptions ); |
| 22 |
use Pod::Usage qw( pod2usage ); |
23 |
use Pod::Usage qw( pod2usage ); |
|
|
24 |
use Try::Tiny qw(catch try); |
| 23 |
|
25 |
|
| 24 |
use Koha::Script; |
26 |
use Koha::Database; |
|
|
27 |
use Koha::Exceptions::Object; |
| 28 |
use Koha::Libraries; |
| 29 |
use Koha::Patron::Categories; |
| 25 |
use Koha::Patrons; |
30 |
use Koha::Patrons; |
| 26 |
|
31 |
|
|
|
32 |
use Koha::Script; |
| 33 |
|
| 27 |
my ( $help, $surname, $userid, $password, $branchcode, $categorycode, $cardnumber ); |
34 |
my ( $help, $surname, $userid, $password, $branchcode, $categorycode, $cardnumber ); |
| 28 |
GetOptions( |
35 |
GetOptions( |
| 29 |
'help|?' => \$help, |
36 |
'help|?' => \$help, |
|
Lines 41-56
pod2usage("branchcode is mandatory") unless $branchcode;
Link Here
|
| 41 |
pod2usage("categorycode is mandatory") unless $categorycode; |
48 |
pod2usage("categorycode is mandatory") unless $categorycode; |
| 42 |
pod2usage("cardnumber is mandatory") unless $cardnumber; |
49 |
pod2usage("cardnumber is mandatory") unless $cardnumber; |
| 43 |
|
50 |
|
| 44 |
my $patron = Koha::Patron->new({ |
51 |
try { |
| 45 |
surname => $surname, |
52 |
Koha::Database->new->schema->txn_do( |
| 46 |
userid => $userid, |
53 |
sub { |
| 47 |
cardnumber => $cardnumber, |
54 |
Koha::Exceptions::Object::FKConstraint->throw( |
| 48 |
branchcode => $branchcode, |
55 |
error => 'Broken FK constraint', |
| 49 |
categorycode => $categorycode, |
56 |
broken_fk => 'branchcode' |
| 50 |
flags => 1, |
57 |
) unless Koha::Libraries->find($branchcode); |
| 51 |
})->store; |
58 |
|
| 52 |
|
59 |
Koha::Exceptions::Object::DuplicateID->throw( duplicate_id => 'userid' ) |
| 53 |
$patron->set_password({ password => $password, skip_validation => 1 }); |
60 |
if Koha::Patrons->find( { userid => $userid } ); |
|
|
61 |
|
| 62 |
Koha::Exceptions::Object::DuplicateID->throw( duplicate_id => 'cardnumber' ) |
| 63 |
if Koha::Patrons->find( { cardnumber => $cardnumber } ); |
| 64 |
|
| 65 |
my $patron = Koha::Patron->new( |
| 66 |
{ |
| 67 |
surname => $surname, |
| 68 |
userid => $userid, |
| 69 |
cardnumber => $cardnumber, |
| 70 |
branchcode => $branchcode, |
| 71 |
categorycode => $categorycode, |
| 72 |
flags => 1, # superlibrarian |
| 73 |
} |
| 74 |
)->store; |
| 75 |
|
| 76 |
# password is set on a separate step (store would set the hashed password) |
| 77 |
$patron->set_password( { password => $password, skip_validation => 1 } ); |
| 78 |
} |
| 79 |
); |
| 80 |
} catch { |
| 81 |
if ( ref($_) eq 'Koha::Exceptions::Object::FKConstraint' ) { |
| 82 |
|
| 83 |
my $value = |
| 84 |
$_->broken_fk eq 'branchcode' ? $branchcode |
| 85 |
: $_->broken_fk eq 'categorycode' ? $categorycode |
| 86 |
: 'ERROR'; |
| 87 |
|
| 88 |
my @valid_values = |
| 89 |
$_->broken_fk eq 'branchcode' ? Koha::Libraries->new->get_column('branchcode') |
| 90 |
: $_->broken_fk eq 'categorycode' ? Koha::Patron::Categories->new->get_column('categorycode') |
| 91 |
: ('UNEXPECTED'); |
| 92 |
|
| 93 |
printf STDERR "ERROR: '%s' is not valid for the '%s' field\n", $value, $_->broken_fk; |
| 94 |
printf STDERR "Possible values are: " . join( ', ', @valid_values ) . "\n"; |
| 95 |
|
| 96 |
} elsif ( ref($_) eq 'Koha::Exceptions::Object::DuplicateID' ) { |
| 97 |
|
| 98 |
my $value = |
| 99 |
$_->duplicate_id eq 'cardnumber' ? $cardnumber |
| 100 |
: $_->duplicate_id eq 'userid' ? $userid |
| 101 |
: 'ERROR'; |
| 102 |
|
| 103 |
printf STDERR "Field '%s' must be unique. Value '%s' is used already.\n", $_->duplicate_id, $value; |
| 104 |
} else { |
| 105 |
print STDERR "Uncaught exception: $_\n"; |
| 106 |
} |
| 107 |
|
| 108 |
exit 1; |
| 109 |
}; |
| 54 |
|
110 |
|
| 55 |
=head1 NAME |
111 |
=head1 NAME |
| 56 |
|
112 |
|
| 57 |
- |
|
|