Lines 1471-1480
sub merge {
Link Here
|
1471 |
my $newtag = $tags_new && @$tags_new |
1471 |
my $newtag = $tags_new && @$tags_new |
1472 |
? _merge_newtag( $tag, $tags_new ) |
1472 |
? _merge_newtag( $tag, $tags_new ) |
1473 |
: $tag; |
1473 |
: $tag; |
|
|
1474 |
my $controlled_ind = Koha::Authority->new({ authtypecode => $authtypeto ? $authtypeto->authtypecode : undef })->controlled_biblio_indicators({ record => $MARCto, biblio_tag => $newtag }); #FIXME Replace this tric with new when refactoring |
1474 |
my $field_to = MARC::Field->new( |
1475 |
my $field_to = MARC::Field->new( |
1475 |
$newtag, |
1476 |
$newtag, |
1476 |
$field->indicator(1), |
1477 |
$controlled_ind->{ind1} // $field->indicator(1), |
1477 |
$field->indicator(2), |
1478 |
$controlled_ind->{ind2} // $field->indicator(2), |
1478 |
9 => $mergeto, # Needed to create field, will be moved |
1479 |
9 => $mergeto, # Needed to create field, will be moved |
1479 |
); |
1480 |
); |
1480 |
my ( @prefix, @postfix ); |
1481 |
my ( @prefix, @postfix ); |
1481 |
- |
|
|