|
Lines 5-14
use MARC::Record;
Link Here
|
| 5 |
use C4::Biblio qw( AddBiblio SetFieldMapping GetMarcFromKohaField ); |
5 |
use C4::Biblio qw( AddBiblio SetFieldMapping GetMarcFromKohaField ); |
| 6 |
use C4::Context; |
6 |
use C4::Context; |
| 7 |
use C4::Charset qw( SanitizeRecord ); |
7 |
use C4::Charset qw( SanitizeRecord ); |
|
|
8 |
use Koha::Database; |
| 8 |
|
9 |
|
| 9 |
my $dbh = C4::Context->dbh; |
10 |
my $dbh = C4::Context->dbh; |
|
|
11 |
my $database = Koha::Database->new(); |
| 12 |
my $schema = $database->schema(); |
| 13 |
$schema->storage->txn_begin(); |
| 10 |
$dbh->{RaiseError} = 1; |
14 |
$dbh->{RaiseError} = 1; |
| 11 |
$dbh->{AutoCommit} = 0; |
|
|
| 12 |
|
15 |
|
| 13 |
my $frameworkcode = q||; |
16 |
my $frameworkcode = q||; |
| 14 |
|
17 |
|
|
Lines 48-51
$record->append_fields(
Link Here
|
| 48 |
is( $has_been_modified, 1, 'SanitizeRecord: the record has been modified' ); |
51 |
is( $has_been_modified, 1, 'SanitizeRecord: the record has been modified' ); |
| 49 |
is( $url, $sanitized_record->subfield($url_field, $url_subfield), 'SanitizeRecord: the url has not been modified'); |
52 |
is( $url, $sanitized_record->subfield($url_field, $url_subfield), 'SanitizeRecord: the url has not been modified'); |
| 50 |
|
53 |
|
| 51 |
$dbh->rollback; |
54 |
$schema->storage->txn_rollback(); |
| 52 |
- |
|
|