Lines 502-508
sub ImportBreedingAuth {
Link Here
|
502 |
my $batch_id = GetZ3950BatchId($filename); |
502 |
my $batch_id = GetZ3950BatchId($filename); |
503 |
my $searchbreeding = $dbh->prepare("select import_record_id from import_auths where control_number=? and authorized_heading=?"); |
503 |
my $searchbreeding = $dbh->prepare("select import_record_id from import_auths where control_number=? and authorized_heading=?"); |
504 |
|
504 |
|
505 |
my $marc_type = shift || C4::Context->preference('marcflavour'); |
505 |
my $marc_type = C4::Context->preference('marcflavour'); |
506 |
|
506 |
|
507 |
my $controlnumber = $marcrecord->field('001')->data; |
507 |
my $controlnumber = $marcrecord->field('001')->data; |
508 |
|
508 |
|
509 |
- |
|
|