Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 27 lines (23 sloc) 568 Bytes
#!/usr/bin/env perl
use strict;
use CGI;
use Koha;
use C4::Context;
use C4::Auth;
use C4::Output;
my $cgi = CGI->new();
my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => 'admin/z3950servers.tmpl',
query => $cgi,
type => 'intranet',
authnotrequired => 0,
flagsrequired => {parameters => 1},
debug => 1,
});
$template->param(
SCRIPT_NAME => $ENV{SCRIPT_NAME},
cgpid => C4::Context->preference('CGPz3950serverID'),
);
output_html_with_http_headers $cgi, $cookie, $template->output;
exit;
__END__
Something went wrong with that request. Please try again.