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::Context;
   8 use HTML::Template;
   9
  10 my $query = new CGI;
  11 my $flagsrequired;
  12 $flagsrequired->{borrowers}=1;
  13 my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, $flagsrequired);
  14
  15 my $template = gettemplate("members/members-home.tmpl");
  16 $template->param(loggedinuser => $loggedinuser);
  17
  18 print $query->header(-cookie => $cookie),$template->output;