- for my $row ( @loop1 ) {
-
- $csv->combine(@$row);
- my $string = $csv->string;
- print $string, "\n";
- }
-
- print ",,,,,,,\n\n";
-}
-if($serialidcount == 1){
- print "MISSING ISSUE ".$heading."\n\n";
-} else {
- print "MISSING ISSUES ".$heading."\n\n";
-}
-print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
-
-for my $row ( @loop2 ) {
-
- $csv->combine(@$row);
- my $string = $csv->string;
- print $string, "\n";
- }
-
-print ",,,,,,,\n";
-print ",,,,,,,\n";
-if($op ne 'claims'){
- my $count = scalar @lateissues;
- print ",,Total Number Late, $count\n";
-}
-if($serialidcount == 1){