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 41-47 plugin that shows a stats on borrowers Link Here
41
41
42
=cut
42
=cut
43
43
44
$debug = 1;
45
$debug and open DEBUG, ">/tmp/bor_issues_top.debug.log";
44
$debug and open DEBUG, ">/tmp/bor_issues_top.debug.log";
46
45
47
my $input = new CGI;
46
my $input = new CGI;
Lines 63-69 my ($template, $borrowernumber, $cookie) Link Here
63
                flagsrequired => {reports => '*'},
62
                flagsrequired => {reports => '*'},
64
                debug => 1,
63
                debug => 1,
65
                });
64
                });
66
our $sep     = $input->param("sep");
65
our $sep     = $input->param("sep") || C4::Context->preference('delimiter') || ',';
67
$sep = "\t" if ($sep eq 'tabulation');
66
$sep = "\t" if ($sep eq 'tabulation');
68
$template->param(do_it => $do_it,
67
$template->param(do_it => $do_it,
69
        );
68
        );
70
- 

Return to bug 17925