|
Lines 17-23
Link Here
|
| 17 |
|
17 |
|
| 18 |
use Modern::Perl; |
18 |
use Modern::Perl; |
| 19 |
|
19 |
|
| 20 |
use Test::More tests => 3; |
20 |
use Test::More tests => 4; |
| 21 |
use Test::MockModule; |
21 |
use Test::MockModule; |
| 22 |
|
22 |
|
| 23 |
use MARC::Record; |
23 |
use MARC::Record; |
|
Lines 187-193
sub mock_marcfromkohafield {
Link Here
|
| 187 |
sub { |
187 |
sub { |
| 188 |
my ( $self ) = shift; |
188 |
my ( $self ) = shift; |
| 189 |
|
189 |
|
| 190 |
if ( C4::Context->preference('marcflavour') eq 'MARC21' ) { |
190 |
if ( C4::Context->preference('marcflavour') eq 'MARC21' || |
|
|
191 |
C4::Context->preference('marcflavour') eq 'NORMARC' ) { |
| 191 |
|
192 |
|
| 192 |
return { |
193 |
return { |
| 193 |
'' => { |
194 |
'' => { |
|
Lines 227-232
sub create_isbn_field {
Link Here
|
| 227 |
|
228 |
|
| 228 |
my $isbn_field = ( $marcflavour eq 'UNIMARC' ) ? '010' : '020'; |
229 |
my $isbn_field = ( $marcflavour eq 'UNIMARC' ) ? '010' : '020'; |
| 229 |
my $field = MARC::Field->new( $isbn_field,'','','a' => $isbn); |
230 |
my $field = MARC::Field->new( $isbn_field,'','','a' => $isbn); |
|
|
231 |
# Add the price subfield |
| 232 |
my $price_subfield = ( $marcflavour eq 'UNIMARC' ) ? 'd' : 'c' ; |
| 233 |
$field->add_subfields( $price_subfield => '100' ); |
| 230 |
|
234 |
|
| 231 |
return $field; |
235 |
return $field; |
| 232 |
} |
236 |
} |
|
Lines 252-256
subtest 'UNIMARC' => sub {
Link Here
|
| 252 |
$dbh->rollback; |
256 |
$dbh->rollback; |
| 253 |
}; |
257 |
}; |
| 254 |
|
258 |
|
|
|
259 |
subtest 'NORMARC' => sub { |
| 260 |
plan tests => 25; |
| 261 |
run_tests('NORMARC'); |
| 262 |
$dbh->rollback; |
| 263 |
}; |
| 264 |
|
| 255 |
|
265 |
|
| 256 |
1; |
266 |
1; |
| 257 |
- |
|
|