From 11bf190ad5ab79edce6ab03045b87c8e72c8c64d Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 12 Sep 2013 22:00:28 +0200
Subject: [PATCH] add original record id in 001

---
 crolist2marc.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 1819d46..49aa86a 100755
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -107,6 +107,8 @@ my $number = 0;
 foreach my $id ( @ids ) {
 	my $rec = MARC::Record->new;
 	$rec->encoding( 'UTF-8' );
+	$rec->add_fields( [ '001', $id ] );
+
 	foreach my $field ( sort keys %{ $data->{$id} } ) {
 		if ( $field eq 'leader' ) {
 			$rec->leader( $data->{$id}->{$field} );
-- 
2.20.1