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

(-)a/C4/Breeding.pm (-2 / +1 lines)
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
- 

Return to bug 19220