correct header
authorDon McMorris <dmcmorris@esilibrary.com>
Fri, 1 Aug 2008 05:54:40 +0000 (05:54 +0000)
committerDon McMorris <dmcmorris@esilibrary.com>
Fri, 1 Aug 2008 05:54:40 +0000 (05:54 +0000)
spit_tlc_marc_holdings.pl

index c0f7fae..bf783ad 100755 (executable)
@@ -11,19 +11,24 @@ binmode(STDOUT, ':utf8');
 binmode(STDIN, ':utf8');
 
 print join("\t",
-    "bib id",
-    "library",
-    "barcode",
-    "current location",
-    "home location",
-    "call number",
-    "item type",
-    "acq date",
-    "price",
-    "circulate flag",
-    "total charges",
-    "cat1",
-    "cat2"
+       "bib id",
+       "collection code",
+       "prefix",
+       "call number",
+       "cutter number",
+       "barcode",
+       "serial year",
+       "volume number",
+       "part subdivision 1",
+       "part subdivision 2",
+       "part subdivision 3",
+       "part subdivision 4",
+       "copy number",
+       "accession number",
+       "price",
+       "condition",
+       "magnetic media",
+       "checkin-in/check-out note"
 ) . "\n";
 
 foreach my $argnum ( 0 .. $#ARGV ) {