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

(-)a/t/lib/TestBuilder.pm (-1 / +7 lines)
Lines 155-161 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
159
    if ( $marcflavour eq 'MARC21' ) {
160
        $record->leader('     nz  a22     o  4500');
161
        C4::Charset::SetMarcUnicodeFlag( $record, 'MARC21' );
162
    }
163
158
    my ( $tag, $subfield ) = $marcflavour eq 'UNIMARC' ? ( 200, 'a' ) : ( 245, 'a' );
164
    my ( $tag, $subfield ) = $marcflavour eq 'UNIMARC' ? ( 200, 'a' ) : ( 245, 'a' );
165
159
    $record->append_fields(
166
    $record->append_fields(
160
        MARC::Field->new( $tag, ' ', ' ', $subfield => $title ),
167
        MARC::Field->new( $tag, ' ', ' ', $subfield => $title ),
161
    );
168
    );
162
- 

Return to bug 28234