opac/sco/help.pl

   1 #!/usr/bin/perl
   2 # This code has been modified by Trendsetters (originally from circulation.pl)
   3 use strict;
   4 use CGI;
   5
   6 use C4::Auth;
   7 use C4::Output;
   8 use HTML::Template;
   9
  10 # begin code modifed by dan
  11 my $query = new CGI;
  12 my ($template, $borrowernumber, $cookie)
  13 #Begin code modified by Christina Lee
  14 # function comes from C4::Auth
  15     = get_template_and_user({template_name => "sco/help.tmpl",
  16 #End code modified by Christina Lee
  17                              query => $query,
  18                              type => "opac",
  19                              authnotrequired => 1,
  20                              flagsrequired => {borrow => 1},
  21                              debug => 1,
  22                              });
  23 # end code modified by dan
  24
  25
  26 # function comes from C4::Interface::CGI::Output
  27 output_html_with_http_headers $query, $cookie, $template->output;
  28