View | Details | Raw Unified | Return to bug 36552
Collapse All | Expand All

(-)a/authorities/authorities.pl (+11 lines)
Lines 638-643 if ($op eq "cud-add") { Link Here
638
} else {
638
} else {
639
    if ( $op eq "duplicate" ) {
639
    if ( $op eq "duplicate" ) {
640
        $authid = "";
640
        $authid = "";
641
        if ( C4::Context->preference('marcflavour') eq 'MARC21' && $record->field('008') ) {
642
            my $s008 = $record->field('008')->data;
643
            my $date = POSIX::strftime( "%y%m%d", localtime );
644
            substr( $s008, 0, 6, $date );
645
            $record->field('008')->update($s008);
646
        } elsif ( C4::Context->preference('marcflavour') eq 'UNIMARC' && $record->subfield( '100', 'a' ) ) {
647
            my $s100a = $record->subfield( '100', 'a' );
648
            my $date  = POSIX::strftime( "%Y%m%d", localtime );
649
            substr( $s100a, 0, 8, $date );
650
            $record->field('100')->update( a => $s100a );
651
        }
641
    }
652
    }
642
653
643
    if ( $changed_authtype ) {
654
    if ( $changed_authtype ) {
(-)a/cataloguing/addbiblio.pl (-1 / +13 lines)
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
- 

Return to bug 36552