View | Details | Raw Unified | Return to bug 34859
Collapse All | Expand All

(-)a/reports/reports-home.pl (-14 / +8 lines)
Lines 17-39 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
21
use Modern::Perl;
20
use Modern::Perl;
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use C4::Auth qw( get_template_and_user );
22
use C4::Auth qw( get_template_and_user );
24
use C4::Output qw( output_html_with_http_headers );
23
use C4::Output qw( output_html_with_http_headers );
25
use C4::Context;
26
27
24
28
my $query = CGI->new;
25
my $query = CGI->new;
29
my ($template, $loggedinuser, $cookie)
26
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
30
= get_template_and_user({template_name => "reports/reports-home.tt",
27
    {
31
				query => $query,
28
        template_name => "reports/reports-home.tt",
32
				type => "intranet",
29
        query         => $query,
33
				flagsrequired => {reports => '*'},
30
        type          => "intranet",
34
				});
31
        flagsrequired => { reports => '*' },
35
$template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
32
    }
36
		intranetstylesheet => C4::Context->preference("intranetstylesheet"),
33
);
37
		IntranetNav => C4::Context->preference("IntranetNav"),
38
		);
39
output_html_with_http_headers $query, $cookie, $template->output;
34
output_html_with_http_headers $query, $cookie, $template->output;
40
- 

Return to bug 34859