From 62392a4d3c79e54f69ef94950c3ade4b9cfc915e Mon Sep 17 00:00:00 2001
From: phasefx <phasefx@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 23 Jan 2009 20:09:35 +0000
Subject: [PATCH] -set_as_deleted param for setting Leader/05 to "d".  This is
 to support XC's OAIToolkit.

git-svn-id: svn://svn.open-ils.org/ILS/trunk@11938 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/extras/import/marc_add_ids | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Open-ILS/src/extras/import/marc_add_ids b/Open-ILS/src/extras/import/marc_add_ids
index a6aae62d27..600caa8624 100755
--- a/Open-ILS/src/extras/import/marc_add_ids
+++ b/Open-ILS/src/extras/import/marc_add_ids
@@ -18,11 +18,13 @@ binmode(STDOUT, ':utf8');
 my ($delim, @fields) = (' \| ');
 my $set_001_003 = 0;
 my $repository_code = 'Evergreen';
+my $set_as_deleted = 0;
 GetOptions(
 	'delimiter=s'	=> \$delim,
 	'field=s'	=> \@fields,
     'set_001_003'   => \$set_001_003,
     'repository_code=s'   => \$repository_code,
+    'set_as_deleted'   => \$set_as_deleted,
 );
 
 my %partmap;
@@ -79,6 +81,14 @@ while (<>) {
             } 
         }
 
+        if ($set_as_deleted) {
+            my $leader = $r->leader();
+            if (length($leader)>4) {
+                substr($leader,5,1,"d");
+                $r->leader($leader);
+            }
+        }
+
 		print $r->as_xml_record;
 	} otherwise {
 		warn "failed on record $., $partlist{marc}, for $@\n";
-- 
2.11.0