Lines 606-611
if ( $record && $op eq 'duplicate' &&
Link Here
|
606 |
my @control_num = $record->field('001'); |
606 |
my @control_num = $record->field('001'); |
607 |
$record->delete_fields(@control_num); |
607 |
$record->delete_fields(@control_num); |
608 |
} |
608 |
} |
|
|
609 |
if ( $record && $op eq 'duplicate' ) { |
610 |
if ( C4::Context->preference('marcflavour') eq 'MARC21' && $record->field('008') ) { |
611 |
my $s008 = $record->field('008')->data; |
612 |
my $date = POSIX::strftime( "%y%m%d", localtime ); |
613 |
substr( $s008, 0, 6, $date ); |
614 |
$record->field('008')->update($s008); |
615 |
} elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->subfield( '100', 'a' ) ) { |
616 |
my $s100a = $record->subfield( '100', 'a' ); |
617 |
my $date = POSIX::strftime( "%Y%m%d", localtime ); |
618 |
substr( $s100a, 0, 8, $date ); |
619 |
$record->field('100')->update( a => $s100a ); |
620 |
} |
621 |
} |
609 |
#populate hostfield if hostbiblionumber is available |
622 |
#populate hostfield if hostbiblionumber is available |
610 |
if ($hostbiblionumber) { |
623 |
if ($hostbiblionumber) { |
611 |
my $marcflavour = C4::Context->preference("marcflavour"); |
624 |
my $marcflavour = C4::Context->preference("marcflavour"); |
612 |
- |
|
|