-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

diff --git a/Open-ILS/src/extras/import/marc_add_ids b/Open-ILS/src/extras/import/marc_add_ids
index a6aae62..600caa8 100755 (executable)
--- 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";