opac/opac-sidebar.pl

   1 #!/usr/bin/perl
   2 use strict;
   3 require Exporter;
   4 use CGI;
   5
   6 use C4::Auth;       # get_template_and_user
   7
   8 my $query = new CGI;
   9
  10 my ($template, $borrowernumber, $cookie)
  11     = get_template_and_user({template_name => "loggedin.tmpl",
  12                              query => $query,
  13                              type => "opac",
  14                              authnotrequired => 1,
  15                              flagsrequired => {borrow => 1},
  16                          });
  17
  18 my @inputs =();
  19 foreach my $name (param $query) {
  20     (next) if ($name eq 'userid' || $name eq 'password');
  21     my $value = $query->param($name);
  22     push @inputs, {name => $name , value => $value};
  23 }
  24
  25 $template->param(INPUTS => \@inputs);
  26
  27 my $self_url = $query->url(-absolute => 1);
  28 $template->param(url => $self_url);
  29
  30 print $query->header(-cookie => $cookie), $template->output;