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 |
- |
|
|