use URI::Escape;
use Scalar::Util qw( looks_like_number );
+use C4::Auth qw(get_template_and_user);
use C4::Context;
use C4::Templates;
);
push @EXPORT, qw(
&output_html_with_http_headers &output_ajax_with_http_headers &output_with_http_headers
- &output_and_exit_if_error &output_and_exit
+ &output_and_exit_if_error &output_and_exit &output_error
);
}
exit;
}
+sub output_error {
+ my ( $query, $error ) = @_;
+ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
+ {
+ template_name => 'errors/errorpage.tt',
+ query => $query,
+ type => 'intranet',
+ authnotrequired => 1,
+ }
+ );
+ my $admin = C4::Context->preference('KohaAdminEmailAddress');
+ $template->param (
+ admin => $admin,
+ errno => $error,
+ );
+ output_with_http_headers $query, $cookie, $template->output, 'html', '404 Not Found';
+}
+
sub parametrized_url {
my $url = shift || ''; # ie page.pl?ln={LANG}
my $vars = shift || {}; # ie { LANG => en }
use Modern::Perl;
use CGI qw ( -utf8 );
-use C4::Auth;
use C4::Output;
-use C4::Context;
my $query = CGI->new;
-my $admin = C4::Context->preference('KohaAdminEmailAddress');
-my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
- {
- template_name => 'errors/errorpage.tt',
- query => $query,
- type => 'intranet',
- authnotrequired => 1,
- debug => 1,
- }
-);
-$template->param (
- admin => $admin,
- errno => 404,
-);
-output_with_http_headers $query, $cookie, $template->output, 'html', '404 Not Found';
+output_error( $query, '404' );