Lines 583-599
if ($op eq "add") {
Link Here
|
583 |
my @ind_tag = $input->param('ind_tag'); |
583 |
my @ind_tag = $input->param('ind_tag'); |
584 |
my @indicator = $input->param('indicator'); |
584 |
my @indicator = $input->param('indicator'); |
585 |
my $record = TransformHtmlToMarc($input); |
585 |
my $record = TransformHtmlToMarc($input); |
586 |
if (C4::Context->preference("marcflavour") eq "UNIMARC"){ |
|
|
587 |
unless ($record->field('100')){ |
588 |
use POSIX qw(strftime); |
589 |
my $string = strftime( "%Y%m%d", localtime(time) ); |
590 |
# set 50 to position 26 is biblios, 13 if authorities |
591 |
my $pos=13; |
592 |
$string = sprintf( "%-*s", 35, $string ); |
593 |
substr( $string, $pos , 2, "50" ); |
594 |
$record->append_fields(MARC::Field->new('100','','',"a"=>$string)); |
595 |
} |
596 |
} |
597 |
|
586 |
|
598 |
my ($duplicateauthid,$duplicateauthvalue); |
587 |
my ($duplicateauthid,$duplicateauthvalue); |
599 |
($duplicateauthid,$duplicateauthvalue) = FindDuplicateAuthority($record,$authtypecode) if ($op eq "add") && (!$is_a_modif); |
588 |
($duplicateauthid,$duplicateauthvalue) = FindDuplicateAuthority($record,$authtypecode) if ($op eq "add") && (!$is_a_modif); |
600 |
- |
|
|