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

(-)a/C4/AuthoritiesMarc.pm (-4 / +7 lines)
Lines 649-658 sub AddAuthority { Link Here
649
    }
649
    }
650
	}
650
	}
651
651
652
  if (($format eq "UNIMARCAUTH") && (!$record->subfield('100','a'))){
652
  if ($format eq "UNIMARCAUTH") {
653
        $record->leader("     nx  j22             ");
653
        $record->leader("     nx  j22             ") unless ($record->leader());
654
        my $date=POSIX::strftime("%Y%m%d",localtime);    
654
        my $date=POSIX::strftime("%Y%m%d",localtime);    
655
        if ($record->field('100')){
655
	if (my $string=$record->subfield('100',"a")){
656
      		$string=~s/fre50/frey50/;
657
      		$record->field('100')->update('a'=>$string);
658
	}
659
        elsif ($record->field('100')){
656
          $record->field('100')->update('a'=>$date."afrey50      ba0");
660
          $record->field('100')->update('a'=>$date."afrey50      ba0");
657
        } else {      
661
        } else {      
658
          $record->append_fields(
662
          $record->append_fields(
659
- 

Return to bug 5915