make it tolerant to edi w/ newlines (which is easier to read)

Signed-off-by: Bill Erickson <berick@esilibrary.com>

diff --git a/Open-ILS/src/support-scripts/test-scripts/edi_parser.pl b/Open-ILS/src/support-scripts/test-scripts/edi_parser.pl
index c92991d..32f32f0 100644 (file)
--- a/Open-ILS/src/support-scripts/test-scripts/edi_parser.pl
+++ b/Open-ILS/src/support-scripts/test-scripts/edi_parser.pl
@@ -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\+(.*)\+.*';