X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=extract_holdings;h=03e68351de7acbf50057cc29a297fbb5905d270c;hp=58353ad0eb0d5a8db900f531295d83d2be47f29f;hb=5d2e4c4541d612bafbb5a7bf1ed48a3b655b526c;hpb=967912046d1cdd6ffc0fc9ec76127d24e1a7b98d

diff --git a/extract_holdings b/extract_holdings
index 58353ad..03e6835 100755
--- a/extract_holdings
+++ b/extract_holdings
@@ -6,6 +6,7 @@ use Getopt::Long;
 use Equinox::Migration::MapDrivenMARCXMLProc;
 use Equinox::Migration::MARCXMLSampler;
 
+my $VERSION = '1.000';
 
 my $c = initialize();
 $| = 1;
@@ -151,12 +152,14 @@ sub initialize {
                          'map=s',
                          'holdings|h=i',
                          'prefix|p=s',
+                         'version|v',
                          'help',
                        );
     show_help() unless $rc;
     show_help() if ($c->{help});
     show_help("map and holdings must be specified together!")
       if ($c->{map} and !$c->{holdings});
+    show_version() if $c->{version};
 
     my @keys = keys %{$c};
     for my $key ('prefix')
@@ -199,3 +202,5 @@ HOLDINGS EXTRACTION ARGUMENTS
 HELP
     exit;
 }
+
+sub show_version { print "extract_holdings v$VERSION\n"; exit }