make it tolerant to edi w/ newlines (which is easier to read)
authorBill Erickson <berick@esilibrary.com>
Fri, 28 Sep 2012 14:40:08 +0000 (10:40 -0400)
committerBill Erickson <berick@esilibrary.com>
Fri, 28 Sep 2012 14:40:08 +0000 (10:40 -0400)
Signed-off-by: Bill Erickson <berick@esilibrary.com>
Open-ILS/src/support-scripts/test-scripts/edi_parser.pl

index c92991d..32f32f0 100644 (file)
@@ -8,6 +8,8 @@ open(EDI_FILE, $edi_file) or die "Cannot open $edi_file: $!\n";
 my $edi = join('', <EDI_FILE>);
 close EDI_FILE;
 
+$edi =~ s/\n//g;
+
 # could store regex's as constants instead of inline..
 my $INV_IDENT_RE = '^BGM\+380\+(.*)\+.*';