koha-dev.rot13.org Git - srvgit/blob - serials/lateissues-excel.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5 use CGI;
   6 use C4::Auth;
   7 use C4::Serials;
   8 use C4::Acquisition;
   9 use C4::Output;
  10 use C4::Context;
  11
  12 # use Date::Manip;
  13 use Text::CSV_XS;
  14
  15
  16 # &Date_Init("DateFormat=non-US"); # set non-USA date, eg:19/08/2005
  17
  18
  19 my $csv = Text::CSV_XS->new(
  20         {
  21             'quote_char'  => '"',
  22             'escape_char' => '"',
  23             'sep_char'    => ',',
  24             'binary'      => 1
  25         }
  26     );
  27
  28
  29 my $query = new CGI;
  30 my $supplierid = $query->param('supplierid');
  31 my @serialid = $query->param('serialid');
  32 my $op = $query->param('op') || q{};
  33 my $serialidcount = @serialid;
  34
  35 my @loop1;
  36 my @lateissues;
  37 if($op ne 'claims'){
  38     @lateissues = GetLateIssues($supplierid);
  39     for my $issue (@lateissues){
  40         push @loop1,
  41       [ $issue->{'name'}, $issue->{'title'}, $issue->{'serialseq'}, $issue->{'planneddate'},];
  42     }
  43 }
  44 my $totalcount2 = 0;
  45 my @loop2;
  46 my @missingissues;
  47 for (my $k=0;$k<@serialid;$k++){
  48     @missingissues = GetLateOrMissingIssues($supplierid, $serialid[$k]);
  49
  50     for (my $j=0;$j<@missingissues;$j++){
  51         my @rows2 = ($missingissues[$j]->{'name'},          # lets build up a row
  52                      $missingissues[$j]->{'title'},
  53                      $missingissues[$j]->{'serialseq'},
  54                      $missingissues[$j]->{'planneddate'},
  55                      );
  56         push (@loop2, \@rows2);
  57     }
  58     $totalcount2 += scalar @missingissues;
  59     # update claim date to let one know they have looked at this missing item
  60     updateClaim($serialid[$k]);
  61 }
  62
  63 my $heading ='';
  64 my $filename ='';
  65 if($supplierid){
  66     if($missingissues[0]->{'name'}){ # if exists display supplier name in heading for neatness
  67         # not necessarily needed as the name will appear in supplier column also
  68         $heading = "FOR $missingissues[0]->{'name'}";
  69         $filename = "_$missingissues[0]->{'name'}";
  70     }
  71 }
  72
  73 print $query->header(
  74         -type       => 'application/vnd.ms-excel',
  75         -attachment => "claims".$filename.".csv",
  76     );
  77
  78 if($op ne 'claims'){
  79     print "LATE ISSUES ".$heading."\n\n";
  80     print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
  81
  82     for my $row ( @loop1 ) {
  83
  84         $csv->combine(@$row);
  85         my $string = $csv->string;
  86         print $string, "\n";
  87     }
  88
  89     print ",,,,,,,\n\n";
  90 }
  91 if($serialidcount == 1){
  92     print "MISSING ISSUE ".$heading."\n\n";
  93 } else {
  94     print "MISSING ISSUES ".$heading."\n\n";
  95 }
  96 print "SUPPLIER,TITLE,ISSUE NUMBER,LATE SINCE\n";
  97
  98 for my $row ( @loop2 ) {
  99
 100         $csv->combine(@$row);
 101         my $string = $csv->string;
 102         print $string, "\n";
 103     }
 104
 105 print ",,,,,,,\n";
 106 print ",,,,,,,\n";
 107 if($op ne 'claims'){
 108     my $count = scalar @lateissues;
 109     print ",,Total Number Late, $count\n";
 110 }
 111 if($serialidcount == 1){
 112
 113 } else {
 114     print ",,Total Number Missing, $totalcount2\n";
 115 }