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

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

Return to bug 12672