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