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