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 use HTML::Template;
   8
   9 my $query = new CGI;
  10
  11 my ($template, $borrowernumber, $cookie)
  12     = get_template_and_user({template_name => "loggedin.tmpl",
  13                              query => $query,
  14                              type => "opac",
  15                              authnotrequired => 1,
  16                              flagsrequired => {borrow => 1},
  17                          });
  18
  19 my @inputs =();
  20 foreach my $name (param $query) {
  21     (next) if ($name eq 'userid' || $name eq 'password');
  22     my $value = $query->param($name);
  23     push @inputs, {name => $name , value => $value};
  24 }
  25
  26 $template->param(INPUTS => \@inputs);
  27
  28 my $self_url = $query->url(-absolute => 1);
  29 $template->param(url => $self_url,
  30 );
  31
  32 output_html_with_http_headers $query, $cookie, $template->output;