View | Details | Raw Unified | Return to bug 11668
Collapse All | Expand All

(-)a/reports/acquisitions_stats.pl (-2 / +3 lines)
Lines 29-34 use C4::Circulation; Link Here
29
use C4::Dates qw/format_date format_date_in_iso/;
29
use C4::Dates qw/format_date format_date_in_iso/;
30
use C4::Branch;
30
use C4::Branch;
31
use C4::Biblio;
31
use C4::Biblio;
32
use Koha::I18N;
32
33
33
=head1 NAME
34
=head1 NAME
34
35
Lines 94-100 if ($do_it) { Link Here
94
        foreach my $col (@$cols) {
95
        foreach my $col (@$cols) {
95
            print $col->{coltitle} . $sep;
96
            print $col->{coltitle} . $sep;
96
        }
97
        }
97
        print "Total\n";
98
        print gettext("Total") . "\n";
98
        foreach my $line (@$lines) {
99
        foreach my $line (@$lines) {
99
            my $x = $line->{loopcell};
100
            my $x = $line->{loopcell};
100
            print $line->{rowtitle} . $sep;
101
            print $line->{rowtitle} . $sep;
Lines 104-110 if ($do_it) { Link Here
104
            print $line->{totalrow};
105
            print $line->{totalrow};
105
            print "\n";
106
            print "\n";
106
        }
107
        }
107
        print "TOTAL";
108
        print gettext("TOTAL");
108
        $cols = @$results[0]->{loopfooter};
109
        $cols = @$results[0]->{loopfooter};
109
        foreach my $col (@$cols) {
110
        foreach my $col (@$cols) {
110
            print $sep. $col->{totalcol};
111
            print $sep. $col->{totalcol};
(-)a/reports/bor_issues_top.pl (-2 / +3 lines)
Lines 30-35 use C4::Members; Link Here
30
use C4::Reports;
30
use C4::Reports;
31
use C4::Debug;
31
use C4::Debug;
32
use C4::Dates qw(format_date format_date_in_iso);
32
use C4::Dates qw(format_date format_date_in_iso);
33
use Koha::I18N;
33
34
34
=head1 NAME
35
=head1 NAME
35
36
Lines 86-92 if ($do_it) { Link Here
86
        print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
87
        print @$results[0]->{line} ."/". @$results[0]->{column} .$sep;
87
# Other header
88
# Other header
88
		print join($sep, map {$_->{coltitle}} @$cols);
89
		print join($sep, map {$_->{coltitle}} @$cols);
89
        print $sep . "Total\n";
90
        print $sep . gettext("Total") . "\n";
90
# Table
91
# Table
91
        foreach my $line ( @$lines ) {
92
        foreach my $line ( @$lines ) {
92
            my $x = $line->{loopcell};
93
            my $x = $line->{loopcell};
Lines 96-102 if ($do_it) { Link Here
96
            print "\n";
97
            print "\n";
97
        }
98
        }
98
# footer
99
# footer
99
        print "TOTAL";
100
        print gettext("TOTAL");
100
        $cols = @$results[0]->{loopfooter};
101
        $cols = @$results[0]->{loopfooter};
101
		print join($sep, map {$_->{totalcol}} @$cols);
102
		print join($sep, map {$_->{totalcol}} @$cols);
102
        print $sep.@$results[0]->{total};
103
        print $sep.@$results[0]->{total};
(-)a/reports/borrowers_out.pl (-2 / +3 lines)
Lines 29-34 use C4::Circulation; Link Here
29
use C4::Reports;
29
use C4::Reports;
30
use C4::Members;
30
use C4::Members;
31
use C4::Dates qw/format_date_in_iso/;
31
use C4::Dates qw/format_date_in_iso/;
32
use Koha::I18N;
32
33
33
=head1 NAME
34
=head1 NAME
34
35
Lines 83-89 if ($do_it) { Link Here
83
        foreach my $col ( @$cols ) {
84
        foreach my $col ( @$cols ) {
84
            print $col->{coltitle}.$sep;
85
            print $col->{coltitle}.$sep;
85
        }
86
        }
86
        print "Total\n";
87
        print gettext("Total") . "\n";
87
# Table
88
# Table
88
        foreach my $line ( @$lines ) {
89
        foreach my $line ( @$lines ) {
89
            my $x = $line->{loopcell};
90
            my $x = $line->{loopcell};
Lines 96-102 if ($do_it) { Link Here
96
            print "\n";
97
            print "\n";
97
        }
98
        }
98
# footer
99
# footer
99
        print "TOTAL";
100
        print gettext("TOTAL");
100
        $cols = @$results[0]->{loopfooter};
101
        $cols = @$results[0]->{loopfooter};
101
        foreach my $col ( @$cols ) {
102
        foreach my $col ( @$cols ) {
102
            print $sep.$col->{totalcol};
103
            print $sep.$col->{totalcol};
(-)a/reports/cat_issues_top.pl (-2 / +3 lines)
Lines 30-35 use C4::Circulation; Link Here
30
use C4::Reports;
30
use C4::Reports;
31
use C4::Dates qw/format_date format_date_in_iso/;
31
use C4::Dates qw/format_date format_date_in_iso/;
32
use C4::Members;
32
use C4::Members;
33
use Koha::I18N;
33
34
34
=head1 NAME
35
=head1 NAME
35
36
Lines 89-95 if ($do_it) { Link Here
89
        foreach my $col ( @$cols ) {
90
        foreach my $col ( @$cols ) {
90
            print $col->{coltitle}.$sep;
91
            print $col->{coltitle}.$sep;
91
        }
92
        }
92
        print "Total\n";
93
        print gettext("Total") . "\n";
93
# Table
94
# Table
94
        foreach my $line ( @$lines ) {
95
        foreach my $line ( @$lines ) {
95
            my $x = $line->{loopcell};
96
            my $x = $line->{loopcell};
Lines 101-107 if ($do_it) { Link Here
101
            print "\n";
102
            print "\n";
102
        }
103
        }
103
# footer
104
# footer
104
        print "TOTAL";
105
        print gettext("TOTAL");
105
        $cols = @$results[0]->{loopfooter};
106
        $cols = @$results[0]->{loopfooter};
106
        foreach my $col ( @$cols ) {
107
        foreach my $col ( @$cols ) {
107
            print $sep.$col->{totalcol};
108
            print $sep.$col->{totalcol};
(-)a/reports/catalogue_stats.pl (-2 / +3 lines)
Lines 28-33 use C4::Output; Link Here
28
use C4::Koha;
28
use C4::Koha;
29
use C4::Reports;
29
use C4::Reports;
30
use C4::Circulation;
30
use C4::Circulation;
31
use Koha::I18N;
31
32
32
=head1 NAME
33
=head1 NAME
33
34
Lines 86-92 if ($do_it) { Link Here
86
		foreach my $col ( @$cols ) {
87
		foreach my $col ( @$cols ) {
87
			print $col->{coltitle}.$sep;
88
			print $col->{coltitle}.$sep;
88
		}
89
		}
89
		print "Total\n";
90
		print gettext("Total") . "\n";
90
		foreach my $line ( @$lines ) {
91
		foreach my $line ( @$lines ) {
91
			my $x = $line->{loopcell};
92
			my $x = $line->{loopcell};
92
			print $line->{rowtitle}.$sep;
93
			print $line->{rowtitle}.$sep;
Lines 96-102 if ($do_it) { Link Here
96
			print $line->{totalrow};
97
			print $line->{totalrow};
97
 			print "\n";
98
 			print "\n";
98
	 	}
99
	 	}
99
		print "TOTAL";
100
		print gettext("TOTAL");
100
		$cols = @$results[0]->{loopfooter};
101
		$cols = @$results[0]->{loopfooter};
101
		foreach my $col ( @$cols ) {
102
		foreach my $col ( @$cols ) {
102
			print $sep.$col->{totalcol};
103
			print $sep.$col->{totalcol};
(-)a/reports/issues_avg_stats.pl (-2 / +3 lines)
Lines 30-35 use C4::Circulation; Link Here
30
use C4::Reports;
30
use C4::Reports;
31
use C4::Dates qw/format_date format_date_in_iso/;
31
use C4::Dates qw/format_date format_date_in_iso/;
32
use Date::Calc qw(Delta_Days);
32
use Date::Calc qw(Delta_Days);
33
use Koha::I18N;
33
34
34
=head1 NAME
35
=head1 NAME
35
36
Lines 91-97 if ($do_it) { Link Here
91
        foreach my $col ( @$cols ) {
92
        foreach my $col ( @$cols ) {
92
            print $col->{coltitle}.$sep;
93
            print $col->{coltitle}.$sep;
93
        }
94
        }
94
        print "Total\n";
95
        print gettext("Total") . "\n";
95
# Table
96
# Table
96
        foreach my $line ( @$lines ) {
97
        foreach my $line ( @$lines ) {
97
            my $x = $line->{loopcell};
98
            my $x = $line->{loopcell};
Lines 103-109 if ($do_it) { Link Here
103
            print "\n";
104
            print "\n";
104
        }
105
        }
105
# footer
106
# footer
106
        print "TOTAL";
107
        print gettext("TOTAL");
107
        $cols = @$results[0]->{loopfooter};
108
        $cols = @$results[0]->{loopfooter};
108
        foreach my $col ( @$cols ) {
109
        foreach my $col ( @$cols ) {
109
            print $sep.$col->{totalcol};
110
            print $sep.$col->{totalcol};
(-)a/reports/issues_stats.pl (-2 / +3 lines)
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};
(-)a/reports/reserves_stats.pl (-3 / +3 lines)
Lines 35-40 use C4::Dates qw/format_date format_date_in_iso/; Link Here
35
use C4::Category;
35
use C4::Category;
36
use List::MoreUtils qw/any/;
36
use List::MoreUtils qw/any/;
37
use YAML;
37
use YAML;
38
use Koha::I18N;
38
39
39
=head1 NAME
40
=head1 NAME
40
41
Lines 115-121 if ($do_it) { Link Here
115
		foreach my $col ( @$cols ) {
116
		foreach my $col ( @$cols ) {
116
			print $col->{coltitle}.$sep;
117
			print $col->{coltitle}.$sep;
117
		}
118
		}
118
		print "Total\n";
119
		print gettext("Total") . "\n";
119
# Table
120
# Table
120
		foreach my $line ( @$lines ) {
121
		foreach my $line ( @$lines ) {
121
			my $x = $line->{loopcell};
122
			my $x = $line->{loopcell};
Lines 124-130 if ($do_it) { Link Here
124
			print $line->{totalrow}, "\n";
125
			print $line->{totalrow}, "\n";
125
		}
126
		}
126
# footer
127
# footer
127
        print "TOTAL";
128
        print gettext("TOTAL");
128
        $cols = @$results[0]->{loopfooter};
129
        $cols = @$results[0]->{loopfooter};
129
		print map {$sep.$_->{totalcol}} @$cols;
130
		print map {$sep.$_->{totalcol}} @$cols;
130
        print $sep.@$results[0]->{total};
131
        print $sep.@$results[0]->{total};
131
- 

Return to bug 11668