members/members-home.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use CGI;
   5 use C4::Auth;
   6 use C4::Output;
   7 use C4::Interface::CGI::Output;
   8 use C4::Context;
   9 use HTML::Template;
  10
  11 my $query = new CGI;
  12 my $quicksearch = $query->param('quicksearch');
  13 my ($template, $loggedinuser, $cookie);
  14 my $template_name;
  15
  16 if($quicksearch){
  17 ($template, $loggedinuser, $cookie)
  18     = get_template_and_user({template_name => "members/member-quicksearch.tmpl",
  19                              query => $query,
  20                              type => "intranet",
  21                              authnotrequired => 0,
  22                              flagsrequired => {borrowers => 1},
  23                              debug => 1,
  24                              });
  25 } else {
  26 ($template, $loggedinuser, $cookie)
  27     = get_template_and_user({template_name => "members/members-home.tmpl",
  28                              query => $query,
  29                              type => "intranet",
  30                              authnotrequired => 0,
  31                              flagsrequired => {borrowers => 1},
  32                              debug => 1,
  33                              });
  34 }
  35
  36 $template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
  37                 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
  38                 IntranetNav => C4::Context->preference("IntranetNav"),
  39                 );
  40 output_html_with_http_headers $query, $cookie, $template->output;