Initial revision
[wip/koha-chris_n.git] / 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;