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

(-)a/reports/bor_issues_top.pl (-5 / +3 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
21
22
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
23
use C4::Auth;
23
use C4::Auth;
24
use C4::Output;
24
use C4::Output;
Lines 40-46 plugin that shows a stats on borrowers Link Here
40
40
41
=cut
41
=cut
42
42
43
$debug = 1;
44
$debug and open DEBUG, ">/tmp/bor_issues_top.debug.log";
43
$debug and open DEBUG, ">/tmp/bor_issues_top.debug.log";
45
44
46
my $input = new CGI;
45
my $input = new CGI;
Lines 62-68 my ($template, $borrowernumber, $cookie) Link Here
62
                flagsrequired => {reports => '*'},
61
                flagsrequired => {reports => '*'},
63
                debug => 1,
62
                debug => 1,
64
                });
63
                });
65
our $sep     = $input->param("sep");
64
our $sep     = $input->param("sep") || C4::Context->preference('delimiter') || ',';
66
$sep = "\t" if ($sep eq 'tabulation');
65
$sep = "\t" if ($sep eq 'tabulation');
67
$template->param(do_it => $do_it,
66
$template->param(do_it => $do_it,
68
        );
67
        );
69
- 

Return to bug 17925