@@ -, +, @@ doesn't nothing! --- Koha/Patrons/Import.pm | 6 ++++++ misc/import_patrons.pl | 1 + 2 files changed, 7 insertions(+) --- a/Koha/Patrons/Import.pm +++ a/Koha/Patrons/Import.pm @@ -73,9 +73,13 @@ sub import_patrons { my $ext_preserve = $params->{preserve_extended_attributes}; my $overwrite_cardnumber = $params->{overwrite_cardnumber}; my $overwrite_passwords = $params->{overwrite_passwords}; + my $dry_run = $params->{dry_run}; my $extended = C4::Context->preference('ExtendedPatronAttributes'); my $set_messaging_prefs = C4::Context->preference('EnhancedMessagingPreferences'); + my $schema = Koha::Database->new->schema; + $schema->storage->txn_begin if $dry_run; + my @columnkeys = $self->set_column_keys($extended); my @feedback; my @errors; @@ -425,6 +429,8 @@ sub import_patrons { invalid => $invalid, imported_borrowers => \@imported_borrowers, }; + + $schema->storage->txn_rollback if $dry_run; } =head2 prepare_columns --- a/misc/import_patrons.pl +++ a/misc/import_patrons.pl @@ -65,6 +65,7 @@ my $return = $Import->import_patrons( overwrite_cardnumber => $overwrite_cardnumber, overwrite_passwords => $overwrite_passwords, preserve_extended_attributes => $ext_preserve, + dry_run => !$confirm, } ); --