cleanup before new work

diff --git a/Equinox-Migration/Changes b/Equinox-Migration/Changes
index 420574c..e29d599 100644 (file)
--- a/Equinox-Migration/Changes
+++ b/Equinox-Migration/Changes
@@ -1,4 +1,31 @@
 Revision history for Equinox-Migration
 
-1.000   2009-03-17
-        First version, E::M::STL
+2009-05-07  MDMP 1.000 & MS 1.000
+
+2009-04-30  SM 1.004
+
+  * single-chunk tokens being quoted is ok now
+  * misc other fixes
+
+2009-04-27  SM 1.003
+
+  * mods now returns *all* mods with no argument
+
+2009-04-27  STL 1.001
+
+  * generate now takes 2 arguments: a filename or string, and any true
+    value if the first argument is a string, to indicate that fact
+
+2009-04-25  SM 1.002
+
+  * mods should return undef when there are no *mods* as well as when
+    there is no mapping *at all*
+
+  * mods returns a hashref
+
+2009-04-14  SM 1.001
+
+  * added tags, subfields methods
+
+2009-03-17  1.000   
+            First version, E::M::STL

diff --git a/Equinox-Migration/MANIFEST b/Equinox-Migration/MANIFEST
index da963bb..615c34a 100644 (file)
--- a/Equinox-Migration/MANIFEST
+++ b/Equinox-Migration/MANIFEST
@@ -2,12 +2,10 @@ Changes
 MANIFEST
 Makefile.PL
 README
-lib/Equinox/Migration.pm
 lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
 lib/Equinox/Migration/MARCXMLSampler.pm
+lib/Equinox/Migration/SimpleTagList.pm
 lib/Equinox/Migration/SubfieldMapper.pm
-lib/Equinox/Migration/SubfieldMapper.pm
-t/00-load.t
 t/01-SimpleTagList.t
 t/02-SubfieldMapper.t
 t/03-MapDrivenMARCXMLProc.t

diff --git a/Equinox-Migration/Makefile.PL b/Equinox-Migration/Makefile.PL
index 9d972c2..ccc5da6 100644 (file)
--- a/Equinox-Migration/Makefile.PL
+++ b/Equinox-Migration/Makefile.PL
@@ -5,8 +5,6 @@ use ExtUtils::MakeMaker;
 WriteMakefile(
     NAME                => 'Equinox::Migration',
     AUTHOR              => 'Shawn Boyette <sboyette@esilibrary.com>',
-    VERSION_FROM        => 'lib/Equinox/Migration.pm',
-    ABSTRACT_FROM       => 'lib/Equinox/Migration.pm',
     PL_FILES            => {},
     PREREQ_PM => {
         'Test::More' => 0,

diff --git a/Equinox-Migration/lib/Equinox/Migration.pm b/Equinox-Migration/lib/Equinox/Migration.pm
deleted file mode 100644 (file)
index c86eedb..0000000
--- a/Equinox-Migration/lib/Equinox/Migration.pm
+++ /dev/null
@@ -1,86 +0,0 @@
-package Equinox::Migration;
-
-use warnings;
-use strict;
-
-=head1 NAME
-
-Equinox::Migration - The great new Equinox::Migration!
-
-=head1 VERSION
-
-Version 0.01
-
-=cut
-
-our $VERSION = '0.01';
-
-
-=head1 SYNOPSIS
-
-Quick summary of what the module does.
-
-Perhaps a little code snippet.
-
-    use Equinox::Migration;
-
-    my $foo = Equinox::Migration->new();
-    ...
-
-=head1 AUTHOR
-
-Shawn Boyette, C<< <sboyette at esilibrary.com> >>
-
-=head1 BUGS
-
-Please report any bugs or feature requests to C<bug-equinox-migration at rt.cpan.org>, or through
-the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Equinox-Migration>.  I will be notified, and then you'll
-automatically be notified of progress on your bug as I make changes.
-
-
-
-
-=head1 SUPPORT
-
-You can find documentation for this module with the perldoc command.
-
-    perldoc Equinox::Migration
-
-
-You can also look for information at:
-
-=over 4
-
-=item * RT: CPAN's request tracker
-
-L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Equinox-Migration>
-
-=item * AnnoCPAN: Annotated CPAN documentation
-
-L<http://annocpan.org/dist/Equinox-Migration>
-
-=item * CPAN Ratings
-
-L<http://cpanratings.perl.org/d/Equinox-Migration>
-
-=item * Search CPAN
-
-L<http://search.cpan.org/dist/Equinox-Migration>
-
-=back
-
-
-=head1 ACKNOWLEDGEMENTS
-
-
-=head1 COPYRIGHT & LICENSE
-
-Copyright 2009 Shawn Boyette, all rights reserved.
-
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-
-=cut
-
-1; # End of Equinox::Migration

diff --git a/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm b/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
index 190125d..2b90a03 100644 (file)
--- a/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
+++ b/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm
@@ -4,7 +4,7 @@ use warnings;
 use strict;
 
 use XML::Twig;
-use Equinox::Migration::SubfieldMapper 1.003;
+use Equinox::Migration::SubfieldMapper 1.004;
 
 
 =head1 NAME

diff --git a/Equinox-Migration/t/00-load.t b/Equinox-Migration/t/00-load.t
deleted file mode 100644 (file)
index c21b332..0000000
--- a/Equinox-Migration/t/00-load.t
+++ /dev/null
@@ -1,9 +0,0 @@
-#!perl -T
-
-use Test::More tests => 1;
-
-BEGIN {
-       use_ok( 'Equinox::Migration' );
-}
-
-diag( "Testing Equinox::Migration $Equinox::Migration::VERSION, Perl $], $^X" );

diff --git a/extract_holdings b/extract_holdings
index 58353ad..03e6835 100755 (executable)
--- 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 }