From 68d8436f22b4ff2c063e2ff61e2f0ff64906424e Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Thu, 30 Oct 2008 01:22:38 +0000 Subject: [PATCH] support CHRG_DATE_CLMRET --- transform_unicorn_flat_charges.pl | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) diff --git a/transform_unicorn_flat_charges.pl b/transform_unicorn_flat_charges.pl index 18b8d71..9a94dd6 100755 --- a/transform_unicorn_flat_charges.pl +++ b/transform_unicorn_flat_charges.pl @@ -11,10 +11,11 @@ sub print_line { $records{ $count }{'CHRG_LIBRARY'} || '', $records{ $count }{'CHRG_DC'} || '', $records{ $count }{'CHRG_DATEDUE'} || '', + $records{ $count }{'CHRG_DATE_CLMRET'} || '', ) . "\n"; } -print "FORM\tUSER_ID\tITEM_ID\tCHRG_LIBRARY\tCHRG_DC\tCHRG_DATEDUE\n"; +print "FORM\tUSER_ID\tITEM_ID\tCHRG_LIBRARY\tCHRG_DC\tCHRG_DATEDUE\nCHRG_DATE_CLMRET\n"; while (my $line = <>) { chomp $line; $line =~ s/[\r\n]//g; @@ -42,6 +43,9 @@ while (my $line = <>) { if ($line =~ /\.CHRG_DATEDUE\..+\|a(.+)/) { $records{ $count }{'CHRG_DATEDUE'} = $1; } + if ($line =~ /\.CHRG_DATEDUE\..+\|a(.+)/) { + $records{ $count }{'CHRG_DATE_CLMRET'} = $1; + } } print_line(); -- 1.7.2.5