projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(from parent 1:
072efb6
)
adding most basic help
author
Shawn Boyette
<sboyette@esilibrary.com>
Wed, 14 Jan 2009 14:51:48 +0000 (14:51 +0000)
committer
Shawn Boyette
<sboyette@esilibrary.com>
Wed, 14 Jan 2009 14:51:48 +0000 (14:51 +0000)
extract_holdings
patch
|
blob
|
history
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;
+}