@@ -, +, @@
---
.../prog/en/modules/reports/borrowers_stats.tt | 15 +++++++++++++++
reports/borrowers_stats.pl | 6 ++++--
2 files changed, 19 insertions(+), 2 deletions(-)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/borrowers_stats.tt
+++ a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/borrowers_stats.tt
@@ -11,6 +11,19 @@
[% INCLUDE 'header.inc' %]
[% INCLUDE 'cat-search.inc' %]
+
+
@@ -283,6 +296,8 @@
+
+
[% END %]
--- a/reports/borrowers_stats.pl
+++ a/reports/borrowers_stats.pl
@@ -64,6 +64,8 @@ my $basename = $input->param("basename");
our $sep = $input->param("sep");
$sep = "\t" if ($sep and $sep eq 'tabulation');
my $selected_branch; # = $input->param("?");
+my $ntotal = $input->param("ntotal");
+my $utotal = $input->param("utotal");
our $branches = GetBranches;
@@ -96,7 +98,7 @@ if ($do_it) {
foreach my $col ( @$cols ) {
print $col->{coltitle}.$sep;
}
- print "Total\n";
+ print "$ntotal\n";
foreach my $line ( @$lines ) {
my $x = $line->{loopcell};
print $line->{rowtitle}.$sep;
@@ -106,7 +108,7 @@ if ($do_it) {
print $line->{totalrow};
print "\n";
}
- print "TOTAL";
+ print "$utotal";
$cols = @$results[0]->{loopfooter};
foreach my $col ( @$cols ) {
print $sep.$col->{totalcol};
--