[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha stats.screen.pl,1.1,1.2
From: |
Mason James |
Subject: |
[Koha-cvs] CVS: koha stats.screen.pl,1.1,1.2 |
Date: |
Sun, 21 Aug 2005 17:33:49 -0700 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8163
Modified Files:
stats.screen.pl
Log Message:
Removed unused modules.
Index: stats.screen.pl
===================================================================
RCS file: /cvsroot/koha/koha/stats.screen.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** stats.screen.pl 22 Aug 2005 00:19:43 -0000 1.1
--- stats.screen.pl 22 Aug 2005 00:33:45 -0000 1.2
***************
*** 1,17 ****
#!/usr/bin/perl
! #things to do
!
! # First sort by branch
! #Then sort by surname
!
! #_Branch_: Could we have Levin displaying as L, please, not C__
!
! #_Totals_ :
! #*Total Paid *
! #*Total written off*
! #*Total credits (which will include manual credits and credits for lost books
returned*
!
! #use strict;
use CGI;
use C4::Output;
--- 1,5 ----
#!/usr/bin/perl
! use strict;
use CGI;
use C4::Output;
***************
*** 22,40 ****
use Date::Manip;
use C4::Stats;
- use Data::Dumper;
-
- use Text::CSV_XS;
-
- my $csv = Text::CSV_XS->new(
- {
- 'quote_char' => '"',
- 'escape_char' => '"',
- 'sep_char' => ',',
- 'binary' => 1,
- 'always_quote' => 1,
- }
- );
-
- my $input=new CGI;
--- 10,13 ----
***************
*** 46,60 ****
query => $input,
type => "intranet",
! authnotrequired => 1,
flagsrequired => {borrowers => 1},
debug => 1,
});
-
-
- #my $time=$input->param('time');
- #my $time="month";
- #my $time="today";
-
my $date;
my $date2;
--- 19,27 ----
query => $input,
type => "intranet",
! authnotrequired => ,
flagsrequired => {borrowers => 1},
debug => 1,
});
my $date;
my $date2;
***************
*** 82,93 ****
}
! #my $date=UnixDate($date,'%Y-%m-%d');
! #my $date2=UnixDate($date2,'%Y-%m-%d');
!
! my $date="2005-08-19";
! my $date2="2005-08-20";
!
! #my $date="2005-01-05";
! #my $date2="2005-01-06";
#get a list of every payment
--- 49,54 ----
}
! my $date=UnixDate($date,'%Y-%m-%d');
! my $date2=UnixDate($date2,'%Y-%m-%d');
#get a list of every payment
***************
*** 113,116 ****
--- 74,78 ----
$totalcharges++;
address@hidden;
+
# getting each of the charges and putting them into a array to be
printed out
#this loops per charge per person
***************
*** 123,129 ****
my
$branch=Getpaidbranch($time2,$payments[$i]{'borrowernumber'});
-
- my $fullname = join ' ', $payments[$i]->{'firstname'},
$payments[$i]->{'surname'};
-
# lets build up a row
my %rows1 = (branch => $branch,
--- 85,88 ----
***************
*** 146,156 ****
}
-
-
#get credits and append to the bottom of payments
my @credits=getcredits($date,$date2);
- #print Dumper(@credits);
-
my address@hidden;
my $i=0;
--- 105,111 ----
***************
*** 172,178 ****
}
- #takes off first char minus sign "-100.00"
-
$totalcredits = substr($totalcredits, 1);
--- 127,132 ----
}
+ #takes off first char minus sign "-100.00"
$totalcredits = substr($totalcredits, 1);
***************
*** 184,187 ****
output_html_with_http_headers $input, $cookie, $template->output;
-
-
--- 138,139 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha stats.screen.pl,1.1,1.2,
Mason James <=