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 |