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

(-)a/C4/AuthoritiesMarc.pm (-7 / +10 lines)
Lines 610-615 sub AddAuthority { Link Here
610
        $format= 'MARC21';
610
        $format= 'MARC21';
611
    }
611
    }
612
612
613
    #update date/time to 005 for marc and unimarc
614
    my $time=POSIX::strftime("%Y%m%d%H%M%S",localtime);
615
    my $f5=$record->field('005');
616
    if (!$f5) {
617
      $record->insert_fields_ordered( MARC::Field->new('005',$time.".0") );
618
    }
619
    else {
620
      $f5->update($time.".0");
621
    }
622
613
	if ($format eq "MARC21") {
623
	if ($format eq "MARC21") {
614
		if (!$record->leader) {
624
		if (!$record->leader) {
615
			$record->leader($leader);
625
			$record->leader($leader);
Lines 619-630 sub AddAuthority { Link Here
619
				MARC::Field->new('003',C4::Context->preference('MARCOrgCode'))
629
				MARC::Field->new('003',C4::Context->preference('MARCOrgCode'))
620
			);
630
			);
621
		}
631
		}
622
		my $time=POSIX::strftime("%Y%m%d%H%M%S",localtime);
623
		if (!$record->field('005')) {
624
			$record->insert_fields_ordered(
625
				MARC::Field->new('005',$time.".0")
626
			);
627
		}
628
		my $date=POSIX::strftime("%y%m%d",localtime);
632
		my $date=POSIX::strftime("%y%m%d",localtime);
629
		if (!$record->field('008')) {
633
		if (!$record->field('008')) {
630
			$record->insert_fields_ordered(
634
			$record->insert_fields_ordered(
631
- 

Return to bug 5375