|
Lines 21-26
use strict;
Link Here
|
| 21 |
#use warnings; FIXME - Bug 2505 |
21 |
#use warnings; FIXME - Bug 2505 |
| 22 |
use CGI; |
22 |
use CGI; |
| 23 |
use Text::CSV; |
23 |
use Text::CSV; |
|
|
24 |
use URI::Escape; |
| 24 |
use C4::Reports::Guided; |
25 |
use C4::Reports::Guided; |
| 25 |
use C4::Auth qw/:DEFAULT get_session/; |
26 |
use C4::Auth qw/:DEFAULT get_session/; |
| 26 |
use C4::Output; |
27 |
use C4::Output; |
|
Lines 521-526
elsif ($phase eq 'Run this report'){
Link Here
|
| 521 |
|
522 |
|
| 522 |
my $totpages = int($total/$limit) + (($total % $limit) > 0 ? 1 : 0); |
523 |
my $totpages = int($total/$limit) + (($total % $limit) > 0 ? 1 : 0); |
| 523 |
my $url = "/cgi-bin/koha/reports/guided_reports.pl?reports=$report&phase=Run%20this%20report"; |
524 |
my $url = "/cgi-bin/koha/reports/guided_reports.pl?reports=$report&phase=Run%20this%20report"; |
|
|
525 |
if (@sql_params) { |
| 526 |
$url = join('&sql_params=', $url, map { URI::Escape::uri_escape($_) } @sql_params); |
| 527 |
} |
| 524 |
$template->param( |
528 |
$template->param( |
| 525 |
'results' => \@rows, |
529 |
'results' => \@rows, |
| 526 |
'sql' => $sql, |
530 |
'sql' => $sql, |
| 527 |
- |
|
|