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