52a5fd4bbd
Create output_html_with_http_headers function to contain the "print $query ->header(-type => guesstype...),..." call. This is in preparation for non-HTML output (e.g., text/xml) and charset conversion before output in the future. Created C4/Interface/CGI/Template.pm to hold convenience functions specific to the CGI interface using HTML::Template Modified moremembers.pl to make the "sex" field localizable for languages where M and F doesn't make sense
31 lines
764 B
Perl
Executable file
31 lines
764 B
Perl
Executable file
#!/usr/bin/perl
|
|
use strict;
|
|
require Exporter;
|
|
use CGI;
|
|
|
|
use C4::Auth; # get_template_and_user
|
|
use HTML::Template;
|
|
|
|
my $query = new CGI;
|
|
|
|
my ($template, $borrowernumber, $cookie)
|
|
= get_template_and_user({template_name => "loggedin.tmpl",
|
|
query => $query,
|
|
type => "opac",
|
|
authnotrequired => 1,
|
|
flagsrequired => {borrow => 1},
|
|
});
|
|
|
|
my @inputs =();
|
|
foreach my $name (param $query) {
|
|
(next) if ($name eq 'userid' || $name eq 'password');
|
|
my $value = $query->param($name);
|
|
push @inputs, {name => $name , value => $value};
|
|
}
|
|
|
|
$template->param(INPUTS => \@inputs);
|
|
|
|
my $self_url = $query->url(-absolute => 1);
|
|
$template->param(url => $self_url);
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|