Lines 639-650
if ($op eq "cud-add") {
Link Here
|
639 |
} else { |
639 |
} else { |
640 |
if ( $op eq "duplicate" ) { |
640 |
if ( $op eq "duplicate" ) { |
641 |
$authid = ""; |
641 |
$authid = ""; |
642 |
if ( C4::Context->preference('marcflavour') eq 'MARC21' && $record->field('008') ) { |
642 |
if ( C4::Context->preference('marcflavour') eq 'MARC21' && $record && $record->field('008') ) { |
643 |
my $s008 = $record->field('008')->data; |
643 |
my $s008 = $record->field('008')->data; |
644 |
my $date = POSIX::strftime( "%y%m%d", localtime ); |
644 |
my $date = POSIX::strftime( "%y%m%d", localtime ); |
645 |
substr( $s008, 0, 6, $date ); |
645 |
substr( $s008, 0, 6, $date ); |
646 |
$record->field('008')->update($s008); |
646 |
$record->field('008')->update($s008); |
647 |
} elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->subfield( '100', 'a' ) ) { |
647 |
} elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record && $record->subfield( '100', 'a' ) ) { |
648 |
my $s100a = $record->subfield( '100', 'a' ); |
648 |
my $s100a = $record->subfield( '100', 'a' ); |
649 |
my $date = POSIX::strftime( "%Y%m%d", localtime ); |
649 |
my $date = POSIX::strftime( "%Y%m%d", localtime ); |
650 |
substr( $s100a, 0, 8, $date ); |
650 |
substr( $s100a, 0, 8, $date ); |
651 |
- |
|
|