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

(-)a/t/lib/TestBuilder.pm (-1 / +2 lines)
Lines 155-160 sub build_sample_biblio { Link Here
155
    my $marcflavour = C4::Context->preference('marcflavour');
155
    my $marcflavour = C4::Context->preference('marcflavour');
156
156
157
    my $record = MARC::Record->new();
157
    my $record = MARC::Record->new();
158
    $record->encoding( 'UTF-8' );
159
158
    my ( $tag, $subfield ) = $marcflavour eq 'UNIMARC' ? ( 200, 'a' ) : ( 245, 'a' );
160
    my ( $tag, $subfield ) = $marcflavour eq 'UNIMARC' ? ( 200, 'a' ) : ( 245, 'a' );
159
    $record->append_fields(
161
    $record->append_fields(
160
        MARC::Field->new( $tag, ' ', ' ', $subfield => $title ),
162
        MARC::Field->new( $tag, ' ', ' ', $subfield => $title ),
161
- 

Return to bug 28234