From 4af1a4640f7444d1700a8d782db1509236bf57ee Mon Sep 17 00:00:00 2001 From: Don McMorris Date: Fri, 1 Aug 2008 05:54:40 +0000 Subject: [PATCH] correct header --- spit_tlc_marc_holdings.pl | 31 ++++++++++++++++++------------- 1 files changed, 18 insertions(+), 13 deletions(-) diff --git a/spit_tlc_marc_holdings.pl b/spit_tlc_marc_holdings.pl index c0f7fae..bf783ad 100755 --- a/spit_tlc_marc_holdings.pl +++ b/spit_tlc_marc_holdings.pl @@ -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 ) { -- 1.7.2.5