Lines 33-38
use C4::Circulation;
Link Here
|
33 |
use C4::Reports; |
33 |
use C4::Reports; |
34 |
use C4::Dates qw/format_date format_date_in_iso/; |
34 |
use C4::Dates qw/format_date format_date_in_iso/; |
35 |
use C4::Members; |
35 |
use C4::Members; |
|
|
36 |
use Koha::I18N; |
36 |
|
37 |
|
37 |
=head1 NAME |
38 |
=head1 NAME |
38 |
|
39 |
|
Lines 107-113
if ($do_it) {
Link Here
|
107 |
foreach my $col ( @$cols ) { |
108 |
foreach my $col ( @$cols ) { |
108 |
print $col->{coltitle}.$sep; |
109 |
print $col->{coltitle}.$sep; |
109 |
} |
110 |
} |
110 |
print "Total\n"; |
111 |
print gettext("Total") . "\n"; |
111 |
# Table |
112 |
# Table |
112 |
foreach my $line ( @$lines ) { |
113 |
foreach my $line ( @$lines ) { |
113 |
my $x = $line->{loopcell}; |
114 |
my $x = $line->{loopcell}; |
Lines 116-122
if ($do_it) {
Link Here
|
116 |
print $line->{totalrow}, "\n"; |
117 |
print $line->{totalrow}, "\n"; |
117 |
} |
118 |
} |
118 |
# footer |
119 |
# footer |
119 |
print "TOTAL"; |
120 |
print gettext("TOTAL"); |
120 |
$cols = @$results[0]->{loopfooter}; |
121 |
$cols = @$results[0]->{loopfooter}; |
121 |
print map {$sep.$_->{totalcol}} @$cols; |
122 |
print map {$sep.$_->{totalcol}} @$cols; |
122 |
print $sep.@$results[0]->{total}; |
123 |
print $sep.@$results[0]->{total}; |