Remove variables that aren't actually used anywhere in the script
authordbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sun, 19 Apr 2009 16:50:59 +0000 (16:50 +0000)
committerdbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sun, 19 Apr 2009 16:50:59 +0000 (16:50 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@12909 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/extras/import/marc2are.pl

index e40bc47..8949dfc 100755 (executable)
@@ -25,8 +25,8 @@ use MARC::Charset;
 
 MARC::Charset->ignore_errors(1);
 
-my ($utf8, $id_field, $count, $user, $password, $config, $marctype, $keyfile,  @files, @trash_fields, $quiet) =
-       (0, '998', 1, 'admin', 'open-ils', '/openils/conf/opensrf_core.xml', 'USMARC');
+my ($count, $user, $password, $config, $marctype, $keyfile, @files, $quiet) =
+       (1, 'admin', 'open-ils', '/openils/conf/opensrf_core.xml', 'USMARC');
 
 GetOptions(
        'startid=i'     => \$count,