9 use C4::Interface::CGI::Output;
16 # &Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005
19 my $csv = Text::CSV_XS->new(
30 my $supplierid = $query->param('supplierid');
31 my @serialid = $query->param('serialid');
32 my $op = $query->param('op');
33 my $serialidcount = @serialid;
35 my %supplierlist = GetSuppliersWithLateIssues;
39 my ($count, @lateissues);
41 ($count, @lateissues) = GetLateIssues($supplierid);
42 for (my $i=0;$i<@lateissues;$i++){
43 my @rows1 = ($lateissues[$i]->{'name'}, # lets build up a row
44 $lateissues[$i]->{'title'},
45 $lateissues[$i]->{'serialseq'},
46 $lateissues[$i]->{'planneddate'},
48 push (@loop1, \@rows1);
53 my ($count2, @missingissues);
54 for (my $k=0;$k<@serialid;$k++){
55 ($count2, @missingissues) = GetMissingIssues($supplierid, $serialid[$k]);
57 for (my $j=0;$j<@missingissues;$j++){
58 my @rows2 = ($missingissues[$j]->{'name'}, # lets build up a row
59 $missingissues[$j]->{'title'},
60 $missingissues[$j]->{'serialseq'},
61 $missingissues[$j]->{'planneddate'},
63 push (@loop2, \@rows2);
65 $totalcount2 = $totalcount2 + $count2;
66 # update claim date to let one know they have looked at this missing item
67 updateClaim($serialid[$k]);
73 if($missingissues[0]->{'name'}){ # if exists display supplier name in heading for neatness
74 # not necessarily needed as the name will appear in supplier column also
75 $heading = "FOR $missingissues[0]->{'name'}";
76 $filename = "_$missingissues[0]->{'name'}";
81 -type => 'application/vnd.ms-excel',
82 -attachment => "claims".$filename.".csv",
86 print "LATE ISSUES ".$heading."\n\n";
87 print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
89 for my $row ( @loop1 ) {
92 my $string = $csv->string;
98 if($serialidcount == 1){
99 print "MISSING ISSUE ".$heading."\n\n";
101 print "MISSING ISSUES ".$heading."\n\n";
103 print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
105 for my $row ( @loop2 ) {
107 $csv->combine(@$row);
108 my $string = $csv->string;
115 print ",,Total Number Late, $count\n";
117 if($serialidcount == 1){
120 print ",,Total Number Missing, $totalcount2\n";