|
Lines 73-81
sub import_patrons {
Link Here
|
| 73 |
my $ext_preserve = $params->{preserve_extended_attributes}; |
73 |
my $ext_preserve = $params->{preserve_extended_attributes}; |
| 74 |
my $overwrite_cardnumber = $params->{overwrite_cardnumber}; |
74 |
my $overwrite_cardnumber = $params->{overwrite_cardnumber}; |
| 75 |
my $overwrite_passwords = $params->{overwrite_passwords}; |
75 |
my $overwrite_passwords = $params->{overwrite_passwords}; |
|
|
76 |
my $dry_run = $params->{dry_run}; |
| 76 |
my $extended = C4::Context->preference('ExtendedPatronAttributes'); |
77 |
my $extended = C4::Context->preference('ExtendedPatronAttributes'); |
| 77 |
my $set_messaging_prefs = C4::Context->preference('EnhancedMessagingPreferences'); |
78 |
my $set_messaging_prefs = C4::Context->preference('EnhancedMessagingPreferences'); |
| 78 |
|
79 |
|
|
|
80 |
my $schema = Koha::Database->new->schema; |
| 81 |
$schema->storage->txn_begin if $dry_run; |
| 82 |
|
| 79 |
my @columnkeys = $self->set_column_keys($extended); |
83 |
my @columnkeys = $self->set_column_keys($extended); |
| 80 |
my @feedback; |
84 |
my @feedback; |
| 81 |
my @errors; |
85 |
my @errors; |
|
Lines 425-430
sub import_patrons {
Link Here
|
| 425 |
invalid => $invalid, |
429 |
invalid => $invalid, |
| 426 |
imported_borrowers => \@imported_borrowers, |
430 |
imported_borrowers => \@imported_borrowers, |
| 427 |
}; |
431 |
}; |
|
|
432 |
|
| 433 |
$schema->storage->txn_rollback if $dry_run; |
| 428 |
} |
434 |
} |
| 429 |
|
435 |
|
| 430 |
=head2 prepare_columns |
436 |
=head2 prepare_columns |