Merge remote branch 'kc/new/enh/bug_5548' into kcmaster
[wip/koha-chris_n.git] / opac / sco / help.pl
1 #!/usr/bin/perl
2 #
3 # This code  (originally from circulation.pl) has been modified by:
4 #   Trendsetters, 
5 #   dan, and
6 #   Christina Lee.
7
8 use strict;
9 use warnings;
10 use CGI;
11
12 use C4::Auth   qw(get_template_and_user);
13 use C4::Output qw(output_html_with_http_headers);
14
15 my $query = new CGI;
16 my ($template, $borrowernumber, $cookie) = get_template_and_user({
17     template_name => "sco/help.tmpl",
18     query => $query,
19      type => "opac",
20     debug => 1,
21     authnotrequired => 1,
22       flagsrequired => {circulate => "circulate_remaining_permissions"},
23 });
24
25 if (C4::Context->preference('SelfCheckoutByLogin')) {
26     $template->param(SelfCheckoutByLogin => 1);
27 }
28 my $selfchecktimeout = 120;
29 if (C4::Context->preference('SelfCheckTimeout')) {
30    $selfchecktimeout = C4::Context->preference('SelfCheckTimeout');
31 }
32
33 $template->param(SelfCheckTimeout => $selfchecktimeout);
34
35 if (C4::Context->preference('SelfCheckHelpMessage')) {
36     $template->param(SelfCheckHelpMessage => C4::Context->preference('SelfCheckHelpMessage'));
37 }
38
39 output_html_with_http_headers $query, $cookie, $template->output;
40