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