Revert "Bug 15572: TransformHtmlToMarc - rewrite the loop"

This reverts commit 1eab5c199d.
This commit is contained in:
Jesse Weaver 2016-01-25 07:01:29 -07:00
parent 7030945d6c
commit ea47e6cdc3
1 changed files with 3 additions and 1 deletions

View File

@ -2515,10 +2515,11 @@ sub TransformHtmlToMarc {
# creating a new record
my $record = MARC::Record->new();
my $i = 0;
my @fields;
my ( $biblionumbertagfield, $biblionumbertagsubfield ) = &GetMarcFromKohaField( "biblio.biblionumber", '' );
#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!
for (my $i = 0; $params[$i]; $i++ ) { # browse all CGI params
while ( $params[$i] ) { # browse all CGI params
my $param = $params[$i];
my $newfield = 0;
@ -2578,6 +2579,7 @@ sub TransformHtmlToMarc {
}
push @fields, $newfield if ($newfield);
}
$i++;
}
$record->append_fields(@fields);