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