stats2.pl

   1 #!/usr/bin/perl
   2
   3 #written 14/1/2000
   4 #script to display reports
   5
   6 use C4::Stats;
   7 use strict;
   8 use Date::Manip;
   9 use CGI;
  10 use C4::Output;
  11 use DBI;
  12 use C4::Database;
  13
  14 my $input=new CGI;
  15 my $time=$input->param('time');
  16 print $input->header;
  17
  18 print startpage;
  19 print startmenu('report');
  20 print center;
  21
  22 my $date;
  23 my $date2;
  24 if ($time eq 'yesterday'){
  25   $date=ParseDate('yesterday');
  26   $date2=ParseDate('today');
  27 }
  28 if ($time eq 'today'){
  29   $date=ParseDate('today');
  30   $date2=ParseDate('tomorrow');
  31 }
  32 if ($time eq 'daybefore'){
  33   $date=ParseDate('2 days ago');
  34   $date2=ParseDate('yesterday');
  35 }
  36 if ($time=~ /\//){
  37   $date=ParseDate($time);
  38   $date2=ParseDateDelta('+ 1 day');
  39   $date2=DateCalc($date,$date2);
  40 }
  41 $date=UnixDate($date,'%Y-%m-%d');
  42 $date2=UnixDate($date2,'%Y-%m-%d');
  43
  44 my $dbh=C4Connect;
  45 my $query="select *
  46 from accountlines,accountoffsets,borrowers where
  47 accountlines.borrowernumber=accountoffsets.borrowernumber and
  48 (accountlines.accountno=accountoffsets.accountno or accountlines.accountno
  49 =accountoffsets.offsetaccount) and accountlines.timestamp >=20000621000000
  50 and borrowers.borrowernumber=accountlines.borrowernumber
  51 group by accountlines.borrowernumber,accountlines.accountno";
  52 my $sth=$dbh->prepare($query);
  53 $sth->execute;
  54
  55
  56
  57 print mktablehdr;
  58 while (my $data=$sth->fetchrow_hashref){
  59   print "<TR><Td>$data->{'surname'}</td><td>$data->{'description'}</td><td>$data->{'amount'}
  60   </td>";
  61   if ($data->{'accountype'}='Pay'){
  62     my $branch=Getpaidbranch($data->{'timestamp'});
  63     print "<td>$branch</td>";
  64   }
  65   print "</tr>";
  66
  67 }
  68
  69
  70 print mktableft;
  71 print endcenter;
  72 #print "<p><b>$total</b>";
  73
  74
  75
  76 print endmenu('report');
  77 print endpage;
  78 $sth->finish;
  79 $dbh->disconnect;