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