From: Shawn Boyette <sboyette@esilibrary.com>
Date: Wed, 14 Jan 2009 14:51:48 +0000 (+0000)
Subject: adding most basic help
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=4215eed3a4f18d11c7c537102d8ccb4e7fa2e4bc

adding most basic help
---

diff --git a/extract_holdings b/extract_holdings
index 8415c6a..00e0d0d 100755
--- 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;
+}