|
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 |
- |
|
|