$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\tCHRG_DATE_CLMRET\n";
while (my $line = <>) {
chomp $line; $line =~ s/[\r\n]//g;
if ($line =~ /\.CHRG_DATEDUE\..+\|a(.+)/) {
$records{ $count }{'CHRG_DATEDUE'} = $1;
}
+ if ($line =~ /\.CHRG_DATE_CLMRET\..+\|a(.+)/) {
+ $records{ $count }{'CHRG_DATE_CLMRET'} = $1;
+ }
}
print_line();