big cut/paste-o

diff --git a/transform_unicorn_flat_charges.pl b/transform_unicorn_flat_charges.pl
index bcd5cd2..9f53e87 100755 (executable)
--- a/transform_unicorn_flat_charges.pl
+++ b/transform_unicorn_flat_charges.pl
@@ -43,7 +43,7 @@ while (my $line = <>) {
     if ($line =~ /\.CHRG_DATEDUE\..+\|a(.+)/) {
         $records{ $count }{'CHRG_DATEDUE'} = $1;
     }
-    if ($line =~ /\.CHRG_DATEDUE\..+\|a(.+)/) {
+    if ($line =~ /\.CHRG_DATE_CLMRET\..+\|a(.+)/) {
         $records{ $count }{'CHRG_DATE_CLMRET'} = $1;
     }
 }