4 use strict; use warnings;
8 use OpenILS::Application::Acq::EDI;
9 use OpenILS::Utils::Cronscript;
10 use Business::EDI::Object;
11 use Business::EDI::Segment::RFF;
12 use vars qw/%code_hash/;
14 require Business::EDI::DataElement;
16 my $core = OpenILS::Utils::Cronscript->new();
17 my $editor = $core->editor;
19 my $slurp = join '', <DATA>;
21 my ($aref, $whole) = OpenILS::Application::Acq::EDI->process_jedi($slurp);
23 $Data::Dumper::Indent = 1;
26 print "Building object from chunk ", ++$i, "\n";
27 my $obj = Business::EDI::Object->new($_);
93 "7008": ["LACY, AL THINGS NOT SEEN"]
132 "7140": "9781576734131",
140 "7008": ["LACY, AL FINAL JUSTICE"]
179 "7140": "9781590529966",
187 "7008": ["MALAMUD, B NATURAL"]
226 "7140": "9780374502003",
234 "7008": ["SCOTT, PAU RAJ QUARTET THE JEWEL IN"]
273 "7140": "9780307263964",
281 "7008": ["JAMES, P. SHROUD FOR A NIGHTINGALE"]
320 "7140": "9780743219600",
328 "7008": ["LAHAYE, TI TRIBULATION FORCE THE CO"]
367 "7140": "9780842329217",
375 "7008": ["ZANE AFTERBURN A NOVEL"]
414 "7140": "9780743470988",
422 "7008": ["CABOT, MEG BOY NEXT DOOR"]
461 "7140": "9780060096199",
469 "7008": ["VONNEGUT, BREAKFAST OF CHAMPIONS"]
508 "7140": "9780385334204",
516 "7008": ["DOSTOYEVSK BROTHERS KARAMAZOV"]
555 "7140": "9781593083526",
563 "7008": ["KINGSBURY, FORGIVEN"]
602 "7140": "9780842387446",
610 "7008": ["BERLINSKI, FIELDWORK"]
649 "7140": "9780374299163",
657 "7008": ["GREGORY, P MERIDON A NOVEL"]
696 "7140": "9780743249317",
704 "7008": ["MCCALL SMI MORALITY FOR BEAUTIFUL G"]
743 "7140": "9781400031368",
751 "7008": ["CLEAGE, PE WHAT LOOKS LIKE CRAZY ON"]
790 "7140": "9780380794874",
798 "7008": ["GREGORY, P WIDEACRE"]
837 "7140": "9780743249294",
845 "7008": ["FERBER, ED SO BIG"]
884 "7140": "9780060956691",
892 "7008": ["GREGORY, P OTHER BOLEYN GIRL"]
931 "7140": "9780743227445",
1002 "7008": ["HOLM, BILL WINDOWS OF BRIMNES"]
1041 "7140": "9781571313027",
1049 "7008": ["REPA, BARB YOUR RIGHTS IN THE WORKP"]
1088 "7140": "9781413306439",
1096 "7008": ["GUERIN, LI ESSENTIAL GUIDE TO WORKP"]
1135 "7140": "9781413306910",
1143 "7008": ["CLIFFORD, ESTATE PLANNING BASICS"]
1182 "7140": "9781413307023",
1190 "7008": ["FRIEDMAN, BABY CARE BOOK"]
1229 "7140": "9780778801603",
1237 "7008": ["KING, RUSS ATLAS OF HUMAN MIGRATION"]
1276 "7140": "9781554072873",
1284 "7008": ["ASH, RUSSE FIREFLYS WORLD OF FACTS"]
1323 "7140": "9781554073139",
1331 "7008": ["WARNER, RA 101 LAW FORMS FOR PERSON"]
1370 "7140": "9781413307122",
1378 "7008": ["BRAY, ILON NOLOS ESSENTIAL GUIDE TO"]
1417 "7140": "9781413306286",
1425 "7008": ["WESTWOOD, HOW TO WRITE A MARKETING"]
1464 "7140": "9780749445546",
1472 "7008": ["ROANE, SUS HOW TO WORK A ROOM YOUR "]
1511 "7140": "9780061238673",
1519 "7008": ["GERMAIN, D REACHING PAST THE WIRE A"]
1558 "7140": "9780873516068",
1566 "7008": ["KLING, KEV DOG SAYS HOW"]
1605 "7140": "9780873515993",
1613 "7008": ["SHORT, SUS BUNDT CAKE BLISS DELICIO"]
1652 "7140": "9780873515856",
1660 "7008": ["BRADY, TIM GOPHER GOLD LEGENDARY FI"]
1699 "7140": "9780873516013",
1707 "7008": ["ROBERTS, K MINNESOTA 150 THE PEOPLE"]
1746 "7140": "9780873515948",
1754 "7008": ["MAK, GEERT IN EUROPE A JOURNEY THRO"]
1793 "7140": "9780375424953",
1801 "7008": ["DONAHUE, P PARENTING WITHOUT FEAR O"]
1840 "7140": "9780312358914",
1848 "7008": ["MURRAY, LI BABYCENTERS ESSENTIAL GU"]
1887 "7140": "9781594864117",
1895 "7008": ["LAPINE, MI SNEAKY CHEF SIMPLE STRAT"]
1934 "7140": "9780762430758",
1952 "ORDRSP": [["UNH", {
2005 "7008": ["SHAW, REBE COUNTRY LOVERS"]
2044 "7140": "9781400098224",
2052 "7008": ["BLAKE, TON TEMPT ME TONIGHT"]
2091 "7140": "9780061136092",
2099 "7008": ["MONING, KA BLOODFEVER"]
2138 "7140": "9780385339162",
2146 "7008": ["MCKENNA, S EDGE OF MIDNIGHT"]
2185 "7140": "9780758211859",
2193 "7008": ["BALZO, SAN GROUNDS FOR MURDER"]
2232 "7140": "9780727865496",
2240 "7008": ["PALMER, DI HARD TO HANDLE"]
2279 "7140": "9780373772612",
2287 "7008": ["JONES, LLO MR PIP"]
2326 "7140": "9780385341066",
2334 "7008": ["JILES, PAU STORMY WEATHER"]
2373 "7140": "9780060537326",
2381 "7008": ["DELILLO, D FALLING MAN A NOVEL"]
2420 "7140": "9781416546023",
2428 "7008": ["MORRISON, SWEETER THAN HONEY"]
2467 "7140": "9780758215116",
2475 "7008": ["SMITH, SHE FOX"]
2514 "7140": "9780756404215",
2522 "7008": ["GROSSMAN, SOON I WILL BE INVINCIBL"]
2561 "7140": "9780375424861",
2569 "7008": ["LEWYCKA, M SHORT HISTORY OF TRACTOR"]
2608 "7140": "9780143036746",
2616 "7008": ["BANNISTER, FLAWED"]
2655 "7140": "9780312375669",
2663 "7008": ["ALEXANDER, REMEMBERED"]
2702 "7140": "9780764201103",
2710 "7008": ["TANIGUCHI, OCEAN IN THE CLOSET"]
2749 "7140": "9781566891943",
2757 "7008": ["HENKE, ROX SECRET OF US"]
2796 "7140": "9780736917018",
2804 "7008": ["HERMAN, KA EVER PRESENT DANGER"]
2843 "7140": "9781590529218",
2851 "7008": ["CHAPMAN, G IT HAPPENS EVERY SPRING"]
2890 "7140": "9781414311654",
2898 "7008": ["JACKSON, N YADA YADA PRAYER GROUP G"]
2937 "7140": "9781591453628",
2954 "recipient": "8888888",
2955 "sender": "1556150",
2975 "sender_qual": "31B",
2978 "decimal_sign": ".",
2984 "recipient_qual": "31B"