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

(-)a/C4/Biblio.pm (+1 lines)
Lines 33-38 use Module::Load::Conditional qw(can_load); Link Here
33
use C4::Koha;
33
use C4::Koha;
34
use C4::Dates qw/format_date/;
34
use C4::Dates qw/format_date/;
35
use C4::Log;    # logaction
35
use C4::Log;    # logaction
36
use C4::Budgets;
36
use C4::ClassSource;
37
use C4::ClassSource;
37
use C4::Charset;
38
use C4::Charset;
38
use C4::Linker;
39
use C4::Linker;
(-)a/t/db_dependent/Biblio.t (-7 / +7 lines)
Lines 33-39 $dbh->{AutoCommit} = 0; Link Here
33
$dbh->{RaiseError} = 1;
33
$dbh->{RaiseError} = 1;
34
34
35
# Mocking variables
35
# Mocking variables
36
my $context             = new Test::MockModule('C4::Context');
36
my $context = new Test::MockModule('C4::Context');
37
37
38
mock_marcfromkohafield();
38
mock_marcfromkohafield();
39
39
Lines 178-184 sub run_tests { Link Here
178
        is( $isbns->[$i], $more_isbns[$i],
178
        is( $isbns->[$i], $more_isbns[$i],
179
            "(GetMarcISBN) Corretly retrieves ISBN #". ($i + 1));
179
            "(GetMarcISBN) Corretly retrieves ISBN #". ($i + 1));
180
    }
180
    }
181
181
    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
182
        "GetMarcPrice returns the correct value");
182
}
183
}
183
184
184
sub mock_marcfromkohafield {
185
sub mock_marcfromkohafield {
Lines 230-236 sub create_isbn_field { Link Here
230
    my $field = MARC::Field->new( $isbn_field,'','','a' => $isbn);
231
    my $field = MARC::Field->new( $isbn_field,'','','a' => $isbn);
231
    # Add the price subfield
232
    # Add the price subfield
232
    my $price_subfield = ( $marcflavour eq 'UNIMARC' ) ? 'd' : 'c' ;
233
    my $price_subfield = ( $marcflavour eq 'UNIMARC' ) ? 'd' : 'c' ;
233
    $field->add_subfields( $price_subfield => '100' );
234
    $field->add_subfields( $price_subfield => '$100' );
234
235
235
    return $field;
236
    return $field;
236
}
237
}
Lines 245-263 sub create_issn_field { Link Here
245
}
246
}
246
247
247
subtest 'MARC21' => sub {
248
subtest 'MARC21' => sub {
248
    plan tests => 25;
249
    plan tests => 26;
249
    run_tests('MARC21');
250
    run_tests('MARC21');
250
    $dbh->rollback;
251
    $dbh->rollback;
251
};
252
};
252
253
253
subtest 'UNIMARC' => sub {
254
subtest 'UNIMARC' => sub {
254
    plan tests => 25;
255
    plan tests => 26;
255
    run_tests('UNIMARC');
256
    run_tests('UNIMARC');
256
    $dbh->rollback;
257
    $dbh->rollback;
257
};
258
};
258
259
259
subtest 'NORMARC' => sub {
260
subtest 'NORMARC' => sub {
260
    plan tests => 25;
261
    plan tests => 26;
261
    run_tests('NORMARC');
262
    run_tests('NORMARC');
262
    $dbh->rollback;
263
    $dbh->rollback;
263
};
264
};
264
- 

Return to bug 12554