Lines 32-44
my $dbh = C4::Context->dbh;
Link Here
|
32 |
$dbh->{AutoCommit} = 0; |
32 |
$dbh->{AutoCommit} = 0; |
33 |
$dbh->{RaiseError} = 1; |
33 |
$dbh->{RaiseError} = 1; |
34 |
|
34 |
|
35 |
# Undef C4::Biblio::inverted_field_map to avoid problems introduced |
35 |
C4::Context->set_preference( 'MARCPermissions', '1'); |
36 |
# by caching in TransformMarcToKoha |
36 |
C4::Context->set_preference( 'MARCPermissionsLog', '1'); |
37 |
undef $C4::Biblio::inverted_field_map; |
37 |
C4::Context->set_preference( 'MARCPermissionsCorrectionSimilarity', '90'); |
38 |
|
|
|
39 |
C4::Context->set_preference( "MARCPermissions", 1); |
40 |
C4::Context->set_preference( "MARCPermissionsLog", 1); |
41 |
C4::Context->set_preference( "MARCPermissionsCorrectionSimilarity", 90); |
42 |
|
38 |
|
43 |
# Create a record |
39 |
# Create a record |
44 |
my $record = MARC::Record->new(); |
40 |
my $record = MARC::Record->new(); |
45 |
- |
|
|