Lines 36-41
use Date::Calc qw(
Link Here
|
36 |
Today |
36 |
Today |
37 |
Add_Delta_YM |
37 |
Add_Delta_YM |
38 |
); |
38 |
); |
|
|
39 |
use Koha::I18N; |
39 |
|
40 |
|
40 |
=head1 NAME |
41 |
=head1 NAME |
41 |
|
42 |
|
Lines 96-102
if ($do_it) {
Link Here
|
96 |
foreach my $col ( @$cols ) { |
97 |
foreach my $col ( @$cols ) { |
97 |
print $col->{coltitle}.$sep; |
98 |
print $col->{coltitle}.$sep; |
98 |
} |
99 |
} |
99 |
print "Total\n"; |
100 |
print gettext("Total") . "\n"; |
100 |
foreach my $line ( @$lines ) { |
101 |
foreach my $line ( @$lines ) { |
101 |
my $x = $line->{loopcell}; |
102 |
my $x = $line->{loopcell}; |
102 |
print $line->{rowtitle}.$sep; |
103 |
print $line->{rowtitle}.$sep; |
Lines 106-112
if ($do_it) {
Link Here
|
106 |
print $line->{totalrow}; |
107 |
print $line->{totalrow}; |
107 |
print "\n"; |
108 |
print "\n"; |
108 |
} |
109 |
} |
109 |
print "TOTAL"; |
110 |
print gettext("TOTAL"); |
110 |
$cols = @$results[0]->{loopfooter}; |
111 |
$cols = @$results[0]->{loopfooter}; |
111 |
foreach my $col ( @$cols ) { |
112 |
foreach my $col ( @$cols ) { |
112 |
print $sep.$col->{totalcol}; |
113 |
print $sep.$col->{totalcol}; |
113 |
- |
|
|