Changeset 9444

Show
Ignore:
Timestamp:
04/23/08 22:30:21 (3 weeks ago)
Author:
miker
Message:

use 001 as the authority record number value

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • trunk/Open-ILS/src/extras/import/marc2are.pl

    r7698 r9444  
    6262        next if ($rec == -1); 
    6363        my $id = $count; 
     64        my $_001 = $rec->field('001'); 
     65        my $arn = $count; 
     66        $arn = $_001->data if ($_001); 
    6467 
    6568        (my $xml = $rec->as_xml_record()) =~ s/\n//sog; 
    … …  
    8083        $bib->edit_date('now'); 
    8184        $bib->arn_source('LEGACY'); 
    82         $bib->arn_value($count); 
     85        $bib->arn_value($arn); 
    8386        $bib->last_xact_id('IMPORT-'.$starttime); 
    8487