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