Lines 10-16
use C4::Context;
Link Here
|
10 |
use Koha::Database; |
10 |
use Koha::Database; |
11 |
|
11 |
|
12 |
BEGIN { |
12 |
BEGIN { |
13 |
use_ok('C4::Record', qw( marc2marc marc2marcxml marcxml2marc marc2dcxml marc2modsxml marc2bibtex )); |
13 |
use_ok('C4::Record', qw( marc2marc marc2marcxml marcxml2marc marc2dcxml marc2modsxml marc2bibtex marc2cites )); |
14 |
} |
14 |
} |
15 |
|
15 |
|
16 |
my $schema = Koha::Database->new->schema; |
16 |
my $schema = Koha::Database->new->schema; |
Lines 155-166
my @entity=C4::Record::_entity_encode("Björn");
Link Here
|
155 |
is ($entity[0], "Björn", "Html umlauts"); |
155 |
is ($entity[0], "Björn", "Html umlauts"); |
156 |
|
156 |
|
157 |
|
157 |
|
158 |
|
158 |
$marc->field('260')->add_subfields( a => 'Hogwarts' ); |
159 |
|
|
|
160 |
$marc->field('260')->add_subfields(a => 'Hogwarts'); |
161 |
my $cites = marc2cites($marc); |
159 |
my $cites = marc2cites($marc); |
162 |
is ($cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites'); |
160 |
is( $cites->{'Chicago'}, 'Rowling J.K, . 2011. Harry potter. Hogwarts: Reprints.', 'testing marc2cites' ); |
163 |
|
|
|
164 |
|
165 |
|
166 |
|
167 |
- |
|
|