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

(-)a/C4/Biblio.pm (-4 / +1 lines)
Lines 2487-2497 sub TransformHtmlToMarc { Link Here
2487
2487
2488
    # creating a new record
2488
    # creating a new record
2489
    my $record = MARC::Record->new();
2489
    my $record = MARC::Record->new();
2490
    my $i      = 0;
2491
    my @fields;
2490
    my @fields;
2492
    my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' );
2491
    my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' );
2493
#FIXME This code assumes that the CGI params will be in the same order as the fields in the template; this is no absolute guarantee!
2492
#FIXME This code assumes that the CGI params will be in the same order as the fields in the template; this is no absolute guarantee!
2494
    while ( $params[$i] ) {    # browse all CGI params
2493
    for (my $i = 0; $params[$i]; $i++ ) {    # browse all CGI params
2495
        my $param    = $params[$i];
2494
        my $param    = $params[$i];
2496
        my $newfield = 0;
2495
        my $newfield = 0;
2497
2496
Lines 2551-2557 sub TransformHtmlToMarc { Link Here
2551
            }
2550
            }
2552
            push @fields, $newfield if ($newfield);
2551
            push @fields, $newfield if ($newfield);
2553
        }
2552
        }
2554
        $i++;
2555
    }
2553
    }
2556
2554
2557
    $record->append_fields(@fields);
2555
    $record->append_fields(@fields);
2558
- 

Return to bug 6657