adding most basic help

[migration-tools.git] / extract_holdings

diff --git a/extract_holdings b/extract_holdings
index 8415c6a..00e0d0d 100755 (executable)
--- a/extract_holdings
+++ b/extract_holdings
@@ -6,7 +6,7 @@ use XML::Twig;
 use YAML;
 use JSON;
 
-my $marcxml = shift;
+my $marcxml = shift || help();
 
 open HOLDINGS, '>', "holdings";
 open X, '>', "holdings.x";
@@ -87,3 +87,11 @@ sub print_reports {
     print HOLDINGS join("\t", $holdings->{id}, $copy->{copyid},
                         $copy->{b}, $copy->{p}, $copy->{h}, $copy->{9}), "\n";
 }
+
+
+sub help {
+    print <<HELP;
+Usage is: extract_holdings MARCXML_FILE
+HELP
+    exit;
+}