View | Details | Raw Unified | Return to bug 14334
Collapse All | Expand All

(-)a/t/db_dependent/Charset.t (-3 / +5 lines)
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
- 

Return to bug 14334