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

(-)a/C4/Biblio.pm (-3 / +2 lines)
Lines 2558-2566 sub TransformHtmlToMarc { Link Here
2558
        # if we are on biblionumber, store it in the MARC::Record (it may not be in the edited fields)
2558
        # if we are on biblionumber, store it in the MARC::Record (it may not be in the edited fields)
2559
        if ( $param eq 'biblionumber' ) {
2559
        if ( $param eq 'biblionumber' ) {
2560
            if ( $biblionumbertagfield < 10 ) {
2560
            if ( $biblionumbertagfield < 10 ) {
2561
                $newfield = MARC::Field->new( $biblionumbertagfield, $cgi->param($param), );
2561
                $newfield = MARC::Field->new( $biblionumbertagfield, scalar $cgi->param($param), );
2562
            } else {
2562
            } else {
2563
                $newfield = MARC::Field->new( $biblionumbertagfield, '', '', "$biblionumbertagsubfield" => $cgi->param($param), );
2563
                $newfield = MARC::Field->new( $biblionumbertagfield, '', '', "$biblionumbertagsubfield" => scalar $cgi->param($param), );
2564
            }
2564
            }
2565
            push @fields, $newfield if ($newfield);
2565
            push @fields, $newfield if ($newfield);
2566
        } elsif ( $param =~ /^tag_(\d*)_indicator1_/ ) {    # new field start when having 'input name="..._indicator1_..."
2566
        } elsif ( $param =~ /^tag_(\d*)_indicator1_/ ) {    # new field start when having 'input name="..._indicator1_..."
2567
- 

Return to bug 16809