From 4bb8b4550404a69990d1d702bb9270a1943ca394 Mon Sep 17 00:00:00 2001 From: miker Date: Thu, 24 Apr 2008 02:30:21 +0000 Subject: [PATCH] use 001 as the authority record number value git-svn-id: svn://svn.open-ils.org/ILS/trunk@9444 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/extras/import/marc2are.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/extras/import/marc2are.pl b/Open-ILS/src/extras/import/marc2are.pl index e01b916c43..6ae28e261f 100755 --- a/Open-ILS/src/extras/import/marc2are.pl +++ b/Open-ILS/src/extras/import/marc2are.pl @@ -61,6 +61,9 @@ my $rec; while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) { next if ($rec == -1); my $id = $count; + my $_001 = $rec->field('001'); + my $arn = $count; + $arn = $_001->data if ($_001); (my $xml = $rec->as_xml_record()) =~ s/\n//sog; $xml =~ s/^<\?xml.+\?\s*>//go; @@ -79,7 +82,7 @@ while ( try { $rec = $batch->next } otherwise { $rec = -1 } ) { $bib->editor($user); $bib->edit_date('now'); $bib->arn_source('LEGACY'); - $bib->arn_value($count); + $bib->arn_value($arn); $bib->last_xact_id('IMPORT-'.$starttime); print OpenSRF::Utils::JSON->perl2JSON($bib)."\n"; -- 2.43.2