|
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 |
- |
|
|