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