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 |
- |
|
|