better docstring

[migration-tools.git] / transform_unicorn_flat_charges.pl

diff --git a/transform_unicorn_flat_charges.pl b/transform_unicorn_flat_charges.pl
index 9a94dd6..9f53e87 100755 (executable)
--- a/transform_unicorn_flat_charges.pl
+++ b/transform_unicorn_flat_charges.pl
@@ -15,7 +15,7 @@ sub print_line {
     ) . "\n"; 
 }
 
-print "FORM\tUSER_ID\tITEM_ID\tCHRG_LIBRARY\tCHRG_DC\tCHRG_DATEDUE\nCHRG_DATE_CLMRET\n";
+print "FORM\tUSER_ID\tITEM_ID\tCHRG_LIBRARY\tCHRG_DC\tCHRG_DATEDUE\tCHRG_DATE_CLMRET\n";
 
 while (my $line = <>) {
     chomp $line; $line =~ s/[\r\n]//g;
@@ -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;
     }
 }