From 3e4d2eca3ef3b6d5275a84842c412bab206e1af6 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 10 Apr 2007 03:17:53 +0000
Subject: [PATCH] explicit IDL location support

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7140 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/support-scripts/marc_export | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/support-scripts/marc_export b/Open-ILS/src/support-scripts/marc_export
index 4de448ed34..91afffd9ed 100755
--- a/Open-ILS/src/support-scripts/marc_export
+++ b/Open-ILS/src/support-scripts/marc_export
@@ -19,7 +19,7 @@ use Getopt::Long;
 
 my @formats = qw/USMARC UNIMARC XML/;
 
-my ($config,$format,$encoding,$location,$dollarsign,$help,$holdings) = ('/openils/conf/bootstrap.conf','USMARC','MARC8','','$');
+my ($config,$format,$encoding,$location,$dollarsign,$idl,$help,$holdings) = ('/openils/conf/bootstrap.conf','USMARC','MARC8','','$');
 
 GetOptions(
         'help'      => \$help,
@@ -28,6 +28,7 @@ GetOptions(
         'money=s'      => \$dollarsign,
         'config=s'      => \$config,
         'format=s'      => \$format,
+        'xml-idl=s'      => \$idl,
         'encoding=s'      => \$encoding,
 );
 
@@ -39,6 +40,7 @@ Usage: $0 [options]
  --format or -f		Output format (USMARC, UNIMARC, XML) [USMARC]
  --encoding or -e	Output Encoding (UTF-8, ISO-8859-?, MARC8) [MARC8]
  --items or -i		Include items (holdings) in the output
+ --xml-idl or -x	Location of the IDL XML
  --location or -l	MARC Location Code for holdings from
  			http://www.loc.gov/marc/organizations/orgshome.html
 
@@ -68,7 +70,10 @@ if ($format ne 'XML') {
 }
 
 OpenSRF::System->bootstrap_client( config_file => $config );
-Fieldmapper->import(IDL => OpenSRF::Utils::SettingsClient->new->config_value("IDL"));
+my $sc = OpenSRF::Utils::SettingsClient->new;
+$idl ||= $sc->config_value("IDL");
+
+Fieldmapper->import(IDL => $idl);
 
 my $ses = OpenSRF::AppSession->create('open-ils.cstore');
 
-- 
2.43.2