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