Bug 6050 Make calls to GetItemsInfo consistent
[wip/koha-chris_n.git] / serials / lateissues-excel.pl
1 #!/usr/bin/perl
2
3 # This file is part of Koha.
4 #
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
8 # version.
9 #
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
13 #
14 # You should have received a copy of the GNU General Public License along
15 # with Koha; if not, write to the Free Software Foundation, Inc.,
16 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
17
18 use strict;
19 use warnings;
20 use CGI;
21 use C4::Auth;
22 use C4::Serials;
23 use C4::Acquisition;
24 use C4::Output;
25 use C4::Context;
26
27 # use Date::Manip;
28 use Text::CSV_XS;
29
30
31 # &Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005
32
33
34 my $csv = Text::CSV_XS->new(
35         {
36             'quote_char'  => '"',
37             'escape_char' => '"',
38             'sep_char'    => ',',
39             'binary'      => 1
40         }
41     );
42
43
44 my $query = new CGI;
45 my $supplierid = $query->param('supplierid');
46 my @serialid = $query->param('serialid');
47 my $op = $query->param('op') || q{};
48 my $serialidcount = @serialid;
49
50 my @loop1;
51 my @lateissues;
52 if($op ne 'claims'){
53     @lateissues = GetLateIssues($supplierid);
54     for my $issue (@lateissues){
55         push @loop1,
56       [ $issue->{'name'}, $issue->{'title'}, $issue->{'serialseq'}, $issue->{'planneddate'},];
57     }
58 }
59 my $totalcount2 = 0;
60 my @loop2;
61 my @missingissues;
62 for (my $k=0;$k<@serialid;$k++){
63     @missingissues = GetLateOrMissingIssues($supplierid, $serialid[$k]);
64
65     for (my $j=0;$j<@missingissues;$j++){
66         my @rows2 = ($missingissues[$j]->{'name'},          # lets build up a row
67                      $missingissues[$j]->{'title'},
68                      $missingissues[$j]->{'serialseq'},
69                      $missingissues[$j]->{'planneddate'},
70                      );
71         push (@loop2, \@rows2);
72     }
73     $totalcount2 += scalar @missingissues;
74     # update claim date to let one know they have looked at this missing item
75     updateClaim($serialid[$k]);
76 }
77
78 my $heading ='';
79 my $filename ='';
80 if($supplierid){
81     if($missingissues[0]->{'name'}){ # if exists display supplier name in heading for neatness
82         # not necessarily needed as the name will appear in supplier column also
83         $heading = "FOR $missingissues[0]->{'name'}";
84         $filename = "_$missingissues[0]->{'name'}";
85     }
86 }
87
88 print $query->header(
89         -type       => 'application/vnd.ms-excel',
90         -attachment => "claims".$filename.".csv",
91     );
92
93 if($op ne 'claims'){
94     print "LATE ISSUES ".$heading."\n\n";
95     print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
96
97     for my $row ( @loop1 ) {
98
99         $csv->combine(@$row);
100         my $string = $csv->string;
101         print $string, "\n";
102     }
103
104     print ",,,,,,,\n\n";
105 }
106 if($serialidcount == 1){
107     print "MISSING ISSUE ".$heading."\n\n";
108 } else {
109     print "MISSING ISSUES ".$heading."\n\n";
110 }
111 print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
112
113 for my $row ( @loop2 ) {
114
115         $csv->combine(@$row);
116         my $string = $csv->string;
117         print $string, "\n";
118     }
119
120 print ",,,,,,,\n";
121 print ",,,,,,,\n";
122 if($op ne 'claims'){
123     my $count = scalar @lateissues;
124     print ",,Total Number Late, $count\n";
125 }
126 if($serialidcount == 1){
127
128 } else {
129     print ",,Total Number Missing, $totalcount2\n";
130 }