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

(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 2546-2551 sub TransformHtmlToMarc { Link Here
2546 

          2546
          

        

        

          2547
          
    # creating a new record

          2547
          
    # creating a new record

        

        

          2548
          
    my $record = MARC::Record->new();

          2548
          
    my $record = MARC::Record->new();

        

            

              
              
              2549
              
    $record->encoding( 'UTF-8' );

            

        

          2549
          
    my @fields;

          2550
          
    my @fields;

        

        

          2550
          
    my ($biblionumbertagfield, $biblionumbertagsubfield) = (-1, -1);

          2551
          
    my ($biblionumbertagfield, $biblionumbertagsubfield) = (-1, -1);

        

        

          2551
          
    ($biblionumbertagfield, $biblionumbertagsubfield) =

          2552
          
    ($biblionumbertagfield, $biblionumbertagsubfield) =

        

            

              2552
              
- 

              
              
            






  

  Return to bug 16370