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

(-)a/C4/AuthoritiesMarc.pm (-4 / +10 lines)
Lines 639-647 sub AddAuthority { Link Here
639
		}
639
		}
640
		my $date=POSIX::strftime("%y%m%d",localtime);
640
		my $date=POSIX::strftime("%y%m%d",localtime);
641
		if (!$record->field('008')) {
641
		if (!$record->field('008')) {
642
			$record->insert_fields_ordered(
642
            # Get a valid default value for field 008
643
				MARC::Field->new('008',$date."|||a||||||           | |||     d")
643
            my $default_008 = C4::Context->preference('MARCAuthorityControlField008');
644
			);
644
            if(!$default_008 or length($default_008)<34) {
645
                $default_008 = '|| aca||aabn           | a|a     d';
646
            }
647
            else {
648
                $default_008 = substr($default_008,0,34);
649
            }
650
651
            $record->insert_fields_ordered( MARC::Field->new('008',$date.$default_008) );
645
		}
652
		}
646
		if (!$record->field('040')) {
653
		if (!$record->field('040')) {
647
		 $record->insert_fields_ordered(
654
		 $record->insert_fields_ordered(
648
- 

Return to bug 7072